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Liebe Homecomputer-Leserinnen, 
Lieber Homecomputer-Leser, 


Unseren Abowettbewerb mußten wir aus wettbewerbs- 
rechtlichen Gründen einstellen. An Herrn Ottmar Her- 
renkind ging übrigens der erste Hauptgewinn - er 
wünschte sich einen Apple Il. 

Nicht wir sind schuld an der abrupten Beendigung 
dieser schönen Sache. sondern unsere Gesetzgebung. 
Preisausschreiben für Idioten (Lösung steht unver- 
ändert im Text) sind erlaubt. Wettbewerbe in der von 
uns angebotenen Form nicht. Mit fadenscheinigen 
Argumenten hat der Gesetzgeber uns zur Einstellung 
gezwungen und wir haben seither mehr mit Rechtsan- 
wälten, als mit Computerleuten zu tun. 

Zum Glück überwiegt aber die positive Seite unserer 
Aktivitäten. Die Post mit zufriedenen Briefen häuft 
sich. offensichtlich eine Reaktion auf die besser ge- 
wordene Gestaltung der letzten Ausgaben. Wir haben 
eine Menge dazugelernt. 

In Kürze werden sowohl "HC" als auch "CPU” mehr 
Farbseiten erhalten. Die Vorbereitungen dazu laufen in 
unserem Hause auf vollen Touren. 

An dieser Stelle möchte ich gleich noch eine Infor- 
mation auf viele Leseranfragen zu unserem Verlag 
geben. 

Der Roeske-Verlag besteht seit nunmehr 4 1/2 Jahren. 
jedoch erst mit unserem Magazin "Homecomputer” 
kam für uns der große Durchbruch. Unsere Mitar- 
beiterzahl hat sich seither vervierfacht und ebenso 
unsere Bürofläche. 

Neben Homcomputer und CPU werden wir in nächster 
Zeit auch Bücher herausgeben. die uns von Autoren 
angeboten werden. Daneben werden zwei Sonderhefte 
noch in diesem Jahr erscheinen. 

Für Ihr Hobby. liebe Leser. werden wir uns noch einiges 
einfallen lassen - auch dann. wenn andere Verlage 
endlich das Thema Homecomputer in ihr Repertoire 
aufnehmen. 
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Herausgeber und Chefredakteur 
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Herr R. Fortelny aus Wien schrieb uns: 


Zuerst einmal ein großes Kompliment für Ihre beiden 
Zeitschriften "CPU” und "Homecomputer”. Sie sind genau 
das. was sich ein Homecomputer-Besitzer wünscht. Auch hier 
bei uns in Österreich besteht große Nachfrage nach diesen 
Zeitschriften. wie man bei den Vertriebstellen hört. 

Doch nun zu meinem Hauptanliegen: 

Ich bin Besitzer eines 48K Spectrum. Als ich die letzte 
Nummer von Homcomputer 9/83 kaufte. war ich sofort von 
den beiden Programmen für den VC-20 SURVIVALvon 
STAR TRAMP begeistert. Könnte man vielleicht diese beiden 
Programme in einem der nächsten Hefte, für den Spectrum 
umgeschrieben bekommen. oder würden Sie den Vorschlag 
von Herrn Schäfer aus HC 6/83 nachkommen, die 
gleichwertigen Basic-Befehle der führenden Microcomputer 
gegenüberzustellen. Ich kann mich nur wegen dieser beiden 
Superprogramme für den VC-20 der Meinung von Herrn 
Schäfer anschließen. Es wäre wirklich super. wenn man die 
verschiedenen Programmme anderer Heimcomputer aufden 
eigenen umschreiben könnte. 

Im übrigen: Macht weiter so!!! 








Redaktion: Über Ihre netten Zeilen haben wir uns sehr gefreut. 
Zu Ihrer Frage: Wie Sie feststellen konnten, haben wir die 
Gegenüberstellung der Basic-Befehle schon in unserer 
Planung gehabt und werden diese ab "Homcomputer” 
10/83in Fortsetzung abdrucken. 


2 Homecomputer 





Herr F. Kappler zu "Homecomputer”: 


Vor kurzem habe ich mir den Homecomputer TI 99/4A 
gekauft. Seither blättere ich natürlich in allen Computer- 
zeitschriften die ich sche. Als ich Euer "Homecomputer” 
gelesen habe. war ich hell begeistert. Soviel Programme und 
interessante Kleinanzeigen habe ich in keiner anderen 
Zeitschrift vorher gesehen. 

Im Namen sicher aller Leser. möchte ich mich hiermit bei 
Ihnen und den Einsendern der Programme bedanken. 
Ganz toll finde ich auch den Leser-Software-Service. 








Herr F.- J. L.ehne aus Harsum: 


Normalerweise ist es nicht meine Art. Leserbriefe zu 
schreiben. weil ich dafür viel zu faul bin. Heute habe ieh mich 
dazu doch einmal entschlossen: ' 


Zunächst möchte ich Ihnen und den anderen Mitarbeitern 
ein Lob aussprechen. Es ist Euch gelungen eine Computer- 
zeitschrift herauszubringen. die einzigartig auf dem deut- 
schen Markt ist. Als ich aber die letzten beiden Ausgaben 
aufschlug. mußte ich feststellen. daß die Leserbriefseite fehlte. 
Das Erste was mich an einer Zeitschrift interessiert. sind die 
Leserbriefe. da ich die Meinung anderer Leser wichtig finde. 
Es müßte doch möglich sein. diese Seite wieder mit in das Heft 
einzubeziehen. 
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Als nächstes wende ich mich den Programmen zu. Als 
Besitzer eines VC-20 freute ich mich besonders über die 
Anwenderprogramme (Zeichengenerator. Assembler usw.). 
Auch die anderen Programme habe ich teilweise abgetippt 
und ausprobiert. Allerdings muß ich bei Programmen, in 
denen ein neuer Zeichensatz definiert worden ist. bemängeln, 
daß die Grafikzeichen sehr schlecht zu unterscheiden sind. Ist 
es hier nicht möglich. die entsprechende Buchstabentaste mit 
der dazugehörenden Shift- oder Commodore - Taste 
abzudrucken? 

Ansonsten finde ich Eure Zeitschrift prima. Macht weiter so!!! 


Redaktion: Wir sind der gleichen Meinung wie Sie und finden 
auch, daß den Leserbriefen ein beständiger Platz in einer Zeit- 
schrift eingeräumt werden muß. Das in den letzten beiden 
Ausgaben von Homcomputer keine Leserbriefe abgedruckt 
worden sind. war auf ein technisches Problem zurück- 
zuführen. wofür wir uns bei allen Lesern nochmals 
nachträglich entschuldigen möchten. 

Zu Ihrer Frage bezü h der Grafikzeichen: Wir versuchen 
alles erdenklich mögliche zu tun. um die Programmlistings 
deutlich abzudrucken. ggf. unlesbare Grafikzeichen zu 
korrigieren. ® 





Herr A. Rapp aus München schrieb uns: 


Erfreut habe ich zur Kenntnis genommen. daß Home- 
computer mit den Programmen “Energie” und "Telefon- 
Adreßdatei” für den Commodore 64 erstmals ernsthaft 
anwendbare Software anbietet. Gerade beim Commodore 64 
ist ja diesbezüglich allgemein noch eine große Angebotslücke 
vorhanden. 





Meine Freude wurde allerdings beträchtlich gedämpft. alsich 
feststellte. daß Sie die Programme nur auf und für Kassette 
anbieten. Speziell für eine Adressendatei ist der schnelle 
Zugriff der Diskette Voraussetzung für eine sinnvolle 
Anwendung. Vielleicht bringen Sie nach Abbau Ihres 
Disketten-Auftragberges doch noch eine Disketten-Version 
heraus. 


Redaktion: Das werden wir ganz bestimmt versuchen. 





Herr J. Kühr aus Klagenfurth: 


Ich muß Ihnen zu Ihrer ausgezeichneten Home-Computer- 
Zeitschrift gratulieren. Mir gefallen besonders die vielen und 
guten Programme für den VC-20 Commodore. Auch der Preis 
kommt mir für diese vielen und guten Programme nicht zu 
teuer vor! 

Ich selbst besitze im Moment noch keinen Computer. werde 
mir aber im Herbst einen VC-20 kaufen. Ein Freund von mir 
besitztden VC-20 under hatihn mir vorgeführt. Es ist wirklich 
beeindruckend. was so ein Computer alles kann. Auch durch 
diesen Freund bin ich zu Ihrer Zeitschrift Home-Computer 
gekommen. 

Ich hätte auch noch eine schr gute Idee für Ihren Verlag: 
Könnten Sie nicht Sonderhefte des Homecomputers mit 
Programmen für den VC-20 herausbringen? 


Redaktion: Wir werden noch vor Ende dieses Jahres ein 
Sonderheft herausbringen. das bestimmt genügend Pro- 
gramme für alle Heimcomputer beinhaltet, worauf sich 
unsere Leser jetzt schon freuen können. 
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Langweilig wäre die Computerwelt, 
gäbe es nur einen Computertyp und 
nur eine Programmiersprache. 
Andererseits ist ein zu großes Spra- 
chengewirr auch nicht gerade von Vor- 
teil. In einer Zeitschrift wird ein Pro- 
gramm abgedruckt, das Ihnen sehr gut 
gefällt - Leider für einen Home- 
computer, den Sie nicht besitzen. 


ABS 
Ermittelt den Ab- 
solutwert der Zahl 


ASC 

Ermittelt den 
ASCII-Wert des 
ersten Zeichens 
im String 


ATN 
Berechnet den Ar- 
kustangens der 


Zahl 


Basic FBasic 


Jetzt wird es schwierig, denn Basic ist 
nicht gleich Basic. 

Was Ihnen fehlt, ist eine Tabelle. 
mittels der Sie die Ihnen unverständ- 
lichen Befehle so umsetzen können, 
daß sie Ihr Computer versteht. 
Homcomputer beginnt in diesem Heft 
eine Serie, die beim Konvertieren von 
Programmen behilflich sein kann. 


AUTO 
‚Automat. Num- 
merierung der 
Zeilen 


CALL 

Ruft Maschinen- 
Unterprogramm 
auf 


CHAIN 


benutzt alte 
Variablen 


Holt neues Progr. 
in Speicher und 


In dieser und den nächsten Ausgaben 
stellen wir das Standard Microsoft 

Basic den Basics von 12 populären 

Micro-Computern gegenüber. Danach . 
werden Eigenschaften dieser einzelnen 

Computer vorgestellt, z.B. Bildschirm- 

adressen, Grafik, freie RAM-Plätze, 

und vieles mehr. 


CLEAR 


Löscht Variable 


CLOSE 
Schließt offene 
Files 


CHRS 
Wandelt Zahl in 
String (ASCII) 





ABS(Zahl) AsciString) 


MICROSOFT 
BASIC 


ATN(Zahl) 


AUTOIZeilennr., 
Wert] 


CALL Wert[(Wert, 
Wert..)] 





ABS(Zahl) AsciString) 


APPLE II 


ATNIZahl) 


CHAIN’Filename’ 


CHRSIZahl) CLEAR[Ausdruck, 


Ausdruck] 





CALL Adresse 


CHAIN’Filename’ 


CHRS(Zahl) CLOSE Filename 





ABS(Zahl) ASCiString) 


ATARI 


ATNIZahl) 


Beispiel, wenn 


CHRSIZahl) CLOSE[#Filenr, 


Filenr...) 


Programm vorher 


SAVE "HC." 





ABSIZahl) AsciString) 


Color Genie 


ABS(Zahl) Asc(String) 


CBM 64 


ATN(Zahl) 


AUTO[Zeilennr. 
Wert] 


CALL Adresse 
Adresse in Hex 


CHRS(Zahl) GLEAR[(Aus- 


druck)] 





ATN(Zahi) 


SYS[Adresse) 


CHRSIZahl) CLR(Ausdruck) LOSE Filenr. 





ABS(Zahl) AsciString) 


Dragon 32 


ATNIZahl) 


EXEC Adresse 


CHRS[Zahl) CLEAR[Ausdruck) CLOSE #-Filenr. 





ABS(Zahl) AsciString) 


ORIG 1 


ATNIZahi) 


CALL Adresse 


CHRSIZahl) 





ABS(Zahl) AsciString) 


ATN(Zahl) 


SYS(Adresse) 


CHRS(Zahl) CLOSE Filenr. 





ABS(Zahl) ASCIString) 


TRS 80 II 
VIDEO GENIE 


ATN(Zahl) 


AUTO[Zeilennr, 
Wert] 


CHRSIZahl) GLEAR[(Aus- 
druck]] 

Erzeugt String- 
platz,wenn Aus- 
druck vorhanden 





AsciString) 


VC-20 


ATNIZahl) 


SYS({Adresse) 


CHRS(Zahl) CLR CLOSE Filenr. 





CODEIString) 
kein ASCII 


ZX-81 


ATN(Zah)) 


LET Variab- 
le=USR 
(Ersatzbefehl) 


CHRSIZahl) 
Kein ASCII 





ABS(Zahl) CODEIString) 


Kein ASCHI 


ZX Spectrum 


ATN(Zahi) 


LET Variab- 
le=USR 
Ersatzbefehl 


CHRS(Zahl) 








Phoenix 
für den Commodore 64 


Nicht immer hat man die Gelegenheit dazu; beim Spiel Phoenix können Sie endlich 
mal den Vogel abschießen. 


Doch auch hier sind Ihrem Sturm und | haben, ihn abzuschießen. steigert sich der Schwierigkeitsgrad bei 
Drang Grenzen gesetzt. Denn jener | Im weiteren Spielverlauf bei dem, wie | jeder Auferstehung. 

Vogel mit Namen Phoenix versucht Sie | in der Sage, der Vogel mehrfach (wenn 

zu erwischen, bevor Sie die Chance | auch nicht aus Asche) neu ersteht, 


© REM ++ PHOENIX <C) BY F. HOFER ++ 

5 POKES3280, 8:POKES3281,6 

7 81254272: FL=S1:FH=SI+1:W=S1+4 :A=S1+5:H=81+6:L=81+24:$$=" 6" :ZZ=RND(-TI) :BT=200 

1@ GOSUB9Q09 :G0SUB1980@:POKEL, 15 

15 PRINT" TI'CHR$C 142) :BOSUBSQA 

17 PRINT" BBITREFFER : "SC, "IBIKANONEN: " 

20 PH=1105:PL=85:PM=81 :PR=73:KX=150:KY=230:KS=1961 :X=8: VZ=58:KN=3:KP=K$S 

25 POKES3281,0 

58 POKEPH-2.32:POKEPH-3. 32: POKEPH, PM: POKEPH-1.PL:POKEPH+1.PR 

52 IFPL=85THENPL=74 :PR=75:G01069 

55 PL=85:PR=73 

68 POKEV,KX:POKEV+L,KY 

78 IFPEEK(283)<>64ANDSP<1144THENSZ=1:SP=KS-89 

88 IFSZ=1ANDSP>1924THENPOKESP, 32: SP=SP-88 : IFPEEK(SP)C>3ZTHENGOSUBS2B 

82 1FSZ=1THENIFPEEK(SP+48)<>32THENGOSUBSQB 

85 IFSP<LL44ANDSZ=1THENSZ=B:SP=Q 

98 IFSZ=1THENPOKESP, 93 

95 PRINT"#" SC. ,KN;S$ 

198 PH=PH+2: IFPH>1943THENGOSUBEAA 

118 KX=KX+X:K3=KS+X/8:KP=KP+X/8: IFKRIZ46THENK=-K 

129 IFKX<SSTHENK=ABSCK) 

138 IFPS=OTHENIFRND<TIIC.STHENPS=1 :PB=PH+48 

135 FORK=1TOVZ: NEXT 

148 IFPS=1THENPOKEPB. 32:PB=PB+89:BT=BT-10:POKEFH. BT:POKEW. 33 

145 FORK=1T05: NEXT: POKEN. & 

150 IFPB>2023THENPOKEPB-88, 42:PS=Q:FORK=1T05:NEXT:BT=298 
IFPB>2Q23THENPOKEFH, 2: POKEW, 129: FORK=1T018: NEXT: POKEPB-89, 32:PB=ß 
IFPS=1THENPOKEPB, 46 
FORK=-1T01: IFPB=KP+K OR PB=KP+49+KTHENGOSUB6BQ 
607058 
POKEPH. 86: TR=55296+PH-1924 :POKEL, 15: POKER, 8: POKEH, 64: POKEW, 33: TT=198 
FORK=-1T01:POKETR+K.2:NEXT 
FORK=PHTO1864STEP48 
TT=TT-PH/258 :POKEFH, ABS<TT? :POKEFL, 1: POKEW, 33 
POKEK 46: POKETR+K-PH, 2:POKEW,@ 

FORQ=1T059:NEXTQ,K 
FORL=-1T01:POKEK+L, 111: :POKETR+K-PH, 2: NEXT 
POKER, 31 :POKEH, 15%16+15: POKEFL. @:POKEFH. 2: POKEW. 33: FORQ=1T0258: NEXT :POKEW,& 
FORK=PHTO1864STEP48 :POKEK , 32:NEXT 
FORL=-1T01 :POKEK+L: 32: NEXT 
SC=SC+1: IFSCIETHEN?9B 
RETURN 
POKEV,& 

@ POKEKS, 42: FORK=1T0250:NEXT 
POKEKS+1 ,67::POKEKS-1. 67 :POKEKS+40, 93: POKEKS-40. 93 
POKEKS-41 ,77 :POKEKS-39, 78: POKEKS+39. 78: POKEKS+41,77 
FORK=15T08STEP-. 1:POKEFH. 2:POKEFL.»2:POKEL»K:POKEW.: 129: NEXT :POKEN,@ 
FORK=1T0758: NEXT :POKEL, 15 
KN=KN-1 : IFKN<1THEN678 
FORK=39T041 :POKEKS-K,, 32: POKEKS+K, 32: NEXT 
FORK=-1T01 :POKEKS+K, 32: POKEPH-24+K,, 32: NEXT: PH=1105: BT=259:G08UB898: RETURN 
PRINT" ROOT" TABCIOD "GAME DV E RM":END 
IFVZ=ATHEN?78@ 
FORK=59TO19STEP-18 
IFVZ=KTHENVZ=K-108: 60710758 
NEXT 
FORK=1T01988: NEXT :FORK=-1T01 :POKEPH+K, 32: NEXT: POKESP, 32 

769 SC=0:PH=1195:5$=5$+"4":5Z=9:SP=Q 























763 IFRU=1THENRUN 

765 RETURN 

779 PRINT" SEDMBEBRAVO!! SIE BEKOMMEN EIN NEUES SPIEL!" 

774 FORK=1T02598:NEXT 

775 RU=1:60710758 

808 FORI=19047101943:POKEI 45: NEXT: RETURN 

00 PRINT" TOBBBBEREE =" TABC30)"" :POKES3248,8 

PRINT"IBB ww 
PRINT" RR RR MR: VRR RR RR" 
PRINT" u 2. 0.5 7 2 zu 2 zu 3 
PRINT" IB WE Me MM" 
PRINT" MBBBBBBBR.CC) BY F. HOFER JUNI 83" 
PRINT" MMWILLKOMMEN BEIM PHOENIX-SPIEL!" 
PRINT"MVERSUCHEN SIE DURCH DRUECKEN EINER TASTE"; 
PRINT"DEN VOGEL ABZUSCHIESSEN. ABER PASSEN SIE": 
PRINT"AUF. DENN ER VERSUCHT EBENFALLS SIE ZU" 
PRINT"TREFFEN. WENN SIE IHN 7MAL GETROFFEN HA-"; 
PRINT"BEN, WIRD DAS SPIEL SCHWIERIGER." 
PRINT"WENN SIE 6 DURCHGRENGE GESCHAFFT HABEN," 
PRINT"DANN BEKOMMEN SIE EIN NEUES SPIEL!" 
GETA$: IFR$=""THENI19Q 
RETURN 

18000 REM ++ SPRITE ++ 

10010 v=53248:POKEV+21.1:POKE2948. 14: POKEV+39, 13 

18820 FORN=BTO62:READQ :POKESIE+N.Q:NEXT 

10059 DATAB.0,8.0,0.0.0.0.0.0.90.0.0.0:0,8.0,0.0: ‚8,8: NULLEN 

10060 DATAB.24,0.0.24.0.0,68.0:9.68.0.0,.255.0,8, e 

10979 DATA15.255:249.7:0.224.5,0,160,7.8,224 

1899@ RETURN 


READY. 














Invaders 


für den Commodore 64 


Nicht in Maschinensprache geschrieben, wie die von diversen Firmen angebotenen 
Invader Versionen, aber auch in Basic, dank der großartigen Fähigkeiten, des 
Commodore 64 ein recht ansprechendes Programm. 


Die Erde ist in Gefahr! befreien, damit die Flotte ungehindert | blauen Planeten herangekommen ist. 
Sie besitzen 3 Kampfraumschiffe und | passieren kann. Nun erwartet man von Ihnen, daß Sie 
sind als Commander mit der Order der | Viel Zeit bleibt Ihnen allerdings nicht, | die Erde verteidigen. 

obersten Raumbehörde versehen wor- | weil das feindliche Kampfgeschwader Machen Sie Ihre Sache gut! 

den, den Raum von Asteroiden zu | schon beunruhigend nahe an unseren 


M=1:REM INVYADERS 
PRINT"I" :PRINT"W" 
POKES3288, 2:POKES3281,2 
PRINT"RUNDE" ;M:PRINT : PRINT: PRINT" EIN SPIEL VON" 
PRINT : PRINT :PRINT: PRINT" P-R HEINEMANN" 
PRINT: PRINT: PRINT: PRINT" Fu 1983 
PRINT : PRINT : PRINT :PRINT"TASTE" :POKE198,B: [rn 

PRINT"T' :PRINTSPCC2882 "33322233 INVADER s eereccccı 
PRINT : PRINT :PRINT :PRINT"TASTE" :POKE198, 8: TURITıS8S 1 
PRINT"1":PRINT:PRINT" DIE ERDE IST IN GEFAHR !" 
PRINT:PRINT" SIE BESITZEN 3 KAMPFRAUMER !" 

PRINT: SIE SIND RAUM-COMANDER UND SOLLEN, " 

PRINT: DEN RAUM VON ASTERDIDEN FREI MACHEN, " 
PRINT: DAMIT DIE FLOTTE UNGEHINDERT PASSIEREN” 
PRINT: KANN. JEDOCH BLEIBT IHNEN NICHT VIEL" 
PRINT: ZEIT,DA DAS FEINDLICHE GESCHWADER" 

PRINT: BEREITS AUF DEM WEG ZUR ERDE IST!" 

PRINT: JETZT MUESSEN SIE DIE ERDE VERTEIDIGEN!" 
PRINT :PRINT:PRINT" TASTE" :FOKE198,8:WAIT198,1 
PRINT"7":PRINT:PRINT" DIE STEUERUNG: " 

PRINT: PRINT : PRINT: PRINT" LJJ=LINKS EKI=RECHTS" 
PRINT :PRINT" LSPACE]=FEUER 

PRINT: PRINT: PRINT 


-VONNNP@ON- 


m 
no 























PRINT :PRINT"TASTE" :POKE198,8:WAIT198, 1 
PRINT"T' :POKES3288, 5: POKES3281,6 
FORA=481073 
POKE1824+A, 168: POKESSZIE+A, 8 
NEXTA 

FORA=88T0928STEP48 
POKE1824+A, 169: POKESS2I6+A, 8 
NEXTA 

FORA=119T09595TEP48 
FOKE1824+f, 169: POKESSZ36+A, 8 
NEXTA 

FORA=968T0399 
POKE1B24+A, 168: POKESSZI6+A,8 
NEXTA 

FORZ=1TO128STEP2 
Y=INTCIOG#RND(1>> 
IFPEEK<(1124+Y3=16@THENY=33 
POKE1124+Y7,81:POKESS3I6+Y,8 
NEXTZ 

5=1945:51=254272 

TER FORETEHNETZLD 
FORF=188T01STEP-1 


8 GETR$: IFA$=""THEN108 


FOKES, 32: POKES+S1,6 
POKE1124+F ,32:POKESF3IGHF 6 

IFA$=" J"THENS=S-1: IFPEEK(S>=16QTHENS=S+1 
IFA$="K'"THENS=S+1: IFPEEKCSI=16BTHENS=S-1 
IFA$=" "THENGOSLUB3B9B 

F=INTCSOO#RNDG139-398 
IFPEEK.C1124+F>=168THENF=66 
IFF£1ORF>9BBTHENF=33 
POKE1124+F ‚86: POKESS3IS+F 8 

IFPEEK(1124+F )=656THENGOSUB49BG 
POKES, 65: POKES+S1,8 

PRINT" ZINDERDEHDEDRDDBRNBDRERBBI'STRSCINTCPY>" ENERGIE " 
POKE1B25+INT<P/53 , 192: POKESSZI7+INTCP/SD,5:POKE1845, 117: POKES5317,8 
POKE1824, 62: POKESS296, 8 
HEATP 
FORH=1T018: FORG=1T015 
POKES3288, 6: POKE33281.6G:NEXTG 

NE#TH 
PRINT": FOKES3288, 4: FOKES3281,4:PRINT"M" 
PRINT: PRINT :PRINT" SIE WURDEN ABGESCHISSEN " 
PRINT: PRIHT" NOCHMAL ? LJZHI" 

GETB$: IFB$=""THEN33@ 

IFB£="J" THENM=M+1 

IFM£=3THENS@GS 

IFM>3THEN4BB 

IFB$="N"THEN4BG 
GOTC338 
PRINT:PRINT:PRINT"FERTIG!" :PRINT:PRINT:PRINT"BITTE:RUNSTOP/RESTORE" END 
POKE1124+F ‚86: POKESS3F6+F 8 
FORD=42T08485TEP48 

POKES,65:POKES+51,0 

POKES-D, 66€: POKES+SI-D.5 

%=5-D 

IFPEEK (X-49)=35THENGOTO4B00 
IFPEEK(#-48)=31THENF=P+1 

NEXTD 

FORD=48T084BSTEP48 

POKES-D, 32: POKES+SI-D,6 

NEATD 

POKE1124+F ‚32: POKESS3I6+F 6 

RETURH i 

FORUJ=1T018:FORI=1T015 
PIKES3288, 1: POKES3281, I:NEATI 

NEXTU 
PRINT"T":PRINT"w" :POKES3281. 4: POKES3288, 4 
PRINT" SIE HABEN :";P; "PUNKTE" 
FRINT:PRINT:PRINT:PRINT" SIE HABEN DIE ERDE GERETTET ":PRINT:PRINT:PRIH 
G0T0328 

GOTDZ 




















Fallschirm 


für den Commodore 64 


Bei diesem Spiel für den Commodore 64 muß versucht werden, einen 
Fallschirmspringer, der aus einem Flugzeug abspringt, in ein Zielfeld zu steuern. 


Spätestens bei 400 Metern Höhe muß | Space bzw. Fire bewirkt, daß der | ins Ziel gelenkt werden. 

die Reisleine gezogen sein, sonst hat | Fallschirmspringer zunächst das Flug- | Je näher er diesem kommt, umso mehr 
dies verheerende Folgen. zeug verläßt und beim nächsten Drük- | Punkte erhält man. Aber achten Sie auf 
Gesteuert wird alles über Tastaturoder | ken der Fallschirm geöffnet wird.MitZ | die Bäume. 

Joystick. und / bzw. dem Joystick kann er dann 


POKE 53284 ,14:FÜKRESIZS1 , 14: POKES3ZTZ,23:PRINT"IRN"CHREUSI 
DIMOAK2ST9 OK 129 =-2: 0251ER II EL ITTHI SZ OL ZT IQ IT) 
YC=33248:51=94272 :HI=-Saaa :POKEYC+Z1 ,a 
Y4zyl+d4 2 YS=VC+5cH1I$="" :POKESI+24,0 
DATA3,2,0,3,0,0,2440,12,2,0,4,0,0,192,16,2.0,6,0,0,64,0.20,243,31,306 
DATRa,126,0,3,255.192,7,255,224,15,255,240,15,255,2440,31,285,248,31 
EATR2SS,248,31,235,248,24,195,24,12,.195,48,68,189,96,3,189,192,1,189 
DATR128,0,219,0,0,255,4,1,189,128,1,189,128,1,189,128,4,102,0,4,102 
DATAG,1,231,128 
DATRa,a,a,0,0,0,6,0,0,0,4,40,0,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,4,8 
DATASZ,0,0,60,60,0,24,0,0,255,4,1,189,128,1,189,128,1,1939,128,0,102 
DATRa,.a,102,4,0,102,0,1,231,128 
EATAG,0,0,192,0,0,224,63,248,240,8,32,248,8,33,248,11,.161,255,255 
DATA249,255,2559,253,63,255,255,7,255,253,3,255,249,0,12,65,9,7,65,80 
DATARa,224,0,1,2440,0,1,246,0,0,224,0,0,40,0,0,0,0,0,0,0,6,& 
EATR@,170,0,2,186,128,2,171,128,10,234,160,19,174,224,11,174,160 
DATRIG,187,160,2,170,128,2,238,128,9,174,0,0,22,69,0,24,40,0,20,0,0,20,0 
EATAG,26,4,0,85,60,1,17.64,90,0,90,0,0,0,0,0,0,0,4,0 
FÜRR=ATOZ24 :REALDIP :POKESI+R .P :NEXT sREADP 
FORR=&TÜS2 :READG :POKER+7G@4 „U:NEKT 
FORR=GTOS2 :READG :PÜKER+832 ,Q NEXT 
FÜRR=ETCS2 :READG :PÜKER+898 ,Q :NEXT 
FÜRR=ETÜS2 :READG :POKER+96G ,.Q :NEXT 
RESTÜRE 
POKEZa44,.11:POKEZA41,.13:POKE2Q42 ,14 :POKE2A43,15:POKE2444 ,15:POKE2945,15 
FORR=YCTOYC+11 :POKER -G:NEXT 
POKEYC+? „225 :POKEVC+3 ,225 :PCKEYC+11 ,225::POKEYC+16 ,A:POKEVC+23,4 : PÜKEYC+ZT ,& 
POKEVC+28 .56 :POKEVC+29 „4 :POKEYC+3G ,@ :PÜKEYC+31 „A :POKEYC+37 ‚9: POKEYC+3S,2 
POKEWC+39,3 :POKEYC+44,3:POKEYC+41 ,5 :POKEYC+42 ,5:POKEVYC+43,5 :POKEYC+44 „5 
S PÜKEVC+&,255::FÜKEYC+21,63 
FORR=1384T02 -G22:PÜKER, 160: MER ERFETLZASMENT 


“"uoanmg 


ef e] } Lg" 
POKES 144, 6S:POKESI+11, es :POKESI+18, 85 
FÜRR=ATOIaG:POKEVYC+4 „RıPOKEWC+S ,.208 :NEHT 
FORR=1GETUSSASTEPS :P=Z12.’34 :2=2+1 :PCKEY4 „R-A :PÜKEYS ,208-P : IFR>ZSSTHENHPOKEVC 

+18.4:A=255 

zaa NEXT :POKEYC+4 ‚E:POKEYC+1S,0 

zıa FÜRR=ATO2SS:FOKEYC+4 ,R:POKEYC+HS,48 

22a IFR>=12GTHENFOKEVYC+HZ, 120: POKEYC+3,R-72 

za NEXT :POKEVC 120 :POKEYC+1 ,183:POKEYC+21 ,9:FÜRR=183T0222STEP. a5 

24a POKEVC+1.R:NEXT :FORR=ATO3G :POKEVYC+33 .2 :POKEYVC+39,3:NEXT 

25a POKEYC+4 ,a:POKEVC+HS ,48 :POKEYC+Z21 ,13 

ze Bs="# % * -ALLSCHIRMSPRINGEN # —-" 

2ra FRINT' ae »TELERE —EINEN #PRIHNGER IN DIAS" 

284 PRINT"ELÄNDEFELD. '"E NAEHER —U AM  ITTEL-" 

238 PRINT"SPUNKT LANDEST,. UM SC MEHR UNKTE GIBTS." 

sag PRINT"SBENN —U "#PACE” BZU. "-IRE” AM "AYSTICK" 

sie PRINT"SDRUECKST SPRINGT ER ZU ERST AUS DEM" 

32a PRINT"M-LUGZEUG UND: DANN GEFFNET ER DEN —ALL-" 

334 PRINT"SSCHIRM. —ANN KANNST U IHN MIT zZ" 

=42 PRINT"BUIND "-” BZU. MIT DEM WiWSTICK INS +IEL" 





PRINT" LEHKEN. "RSS AUF DIE |RUEME AUF 1" 
FORR=1TO3E:FRINT' SEHR" RIGHT$ÜB$,R5 :POKEYC+4 , 1S+R#S : FORB=1 TOSG NEXT :NEKT :SZ= 


POÜKE198,G:WUAIT1S8,1:POKE19S,G 

GOSUB14GR:RU=1 

FCRI=1TOSP 

POKESI+24 ,G:PÜKEVYC+1S,G:POKEYC+21 ,A:POKE198 .A:PRINT" IM" > 
FÜRFR=1384 702023 :POKER , 1850 :POKER+SI,3:NEXST 
H=INTERNDWIDRZEHLD 

PRINT" ! j] ‚] Be" TRECN+AS RL — 8" 
U=@:M=G:A= RNDC- -TID :UIR=INTE RNDK1D+. SyHla-5 
Pi=IHTERNOK15H298+24) 

F2=IHT£RNDE 1D#296+24 5 : IFRBSCP1-P2)<2STHENSSA 
P2=INTERNOK15H298+24) : IFABSCPA-FI9 CZSORABSKP2-PSI S2ESTHENSEA 
IFF1>ZSSTHENU=S :Pi=P1-255 

IFP2E>25STHENW=U+1S :P2=P2-255 

IFP3>2SSTHENHU=EU+H32 : FI=P3-255 

POKEWC+1S,bEPÜKEVC+E,P1 :POKEYC+HS ,P2 :PÜKEYC+H1G,P3 
SC=E;H=1aGc ;POKEVYC+S,48 

FÜRK=&TÜ24 :RERADY :POKESI+H „Y :NEXTS SRERDH = IF&=32GGTHENRESTORE 
PCKESI+4,.89:POKESI+11.85:POKESI+18,85 

PÜKEVC+Z1 ,84 

PRINT" SEIEIPPPRIHGER : "NEXID 

PRINT" ICEHE » 1GacM" 

FRINT"WEIT s aa SEC" 
PÜKE198,4:FORR=AT0O25SSSTEF3:GETA$ : IFR$<H"" THENFSO 

POKEWO+4 ,R:NEXT :POKEYC+18 ‚PEEKLWC+H1SD +4 :FÜRR=ATCOIAASTEP3 :GETR$ :IFA$S>" "THEN 


POKEYC+4 ,R:NEHT :POKEYC+18 „PEERKVC+18)-4 :GOTÜF1G 

PCOKE138,6:T1I$='"aagaaa" :S=PEEKLWYC+4) 

IFPEEKCYC+185-U=4THENPOKEYC+HIE ‚bI+Z2 

POKEYC+2,S:PÜKEVC+3,48 :POKEYC+21 ,58:POKEYC+3G,0 

FORK=aTÜZ4 :PÜKESI+S ,A:NEXTE 

POKESI+24 ,S:POKESI+S,255 :POKESI+6,255:POKESI+1 .248 :POKESI ‚ 1@a@:POKESI+4 ,17 
FORR=48T0152 :POKESI , 1A@:POKESI+1 ,248-R 

POKEYC+3,R:PÜKEVC+Z,S:PRINT '" Sglalsisle] |LIEHE " 

FRINTIHTK 1278-1278.’ 221#R5 "IM ":PRINT"WEIT » "RIGHT$KLTI#,2) 

GETA$ : IFA$T>" " THENSGG 

S=eS+4A’RsE=LPEERLYCHLEI-UD 2: IFSSZSSTHENPOREYC+H1S ,V+ZELLTE-E) ıS=G 
IFS<ZETHENPOKEVYC+H1S ,bHZ#L LTE-E) 15=255 

NEXT & 

FORR=153T0221 :POKESI ,10G:POKESI+1.243-R 

POKEYC+2,R:FRINT" Seelaige] ICEHE s"IMTLI12FS-1278’221RD "I" 

PRINT"MEIT =» "RIGHT$KTIS$,25 :NEXT 
M=-1:PA=PEEKLVC+H25 : T=YALKRIGHT$SKTIS „255 : IFPEEKSYC+HLEI-U=SZTHENPA=PA+255 
FÜRR=1STOASTEP-1 :POKESI+24 ,R:POKESI „200 :POKESI+1 ‚40: POKESI+5,15:POKESI+S,.0 
FOKESI+4,123 NEXT :GOSUBISAG 

PRINT"S"," “IE HABEN DIE _EISS- " 

PRINT"@" "LEINE ZU SPAET GEZÜGEH!" 

PRINT"@","+EIT :"T" #EKUNDEN" 

GoTa1zac 

#=PEEKKVC+H2I SV =PEEKLYC+3) :POKEVC „X :POKEYC+1 „Y :POKEYC+21 ,57 :POKESI+24,0 
IFPEEK£YC+1S>-U=2THENPOKEVYC+HIS „bI+1 

FÜRR=YTOZZ1STEP.S 

FOEKEYC+1 ,R:POKEYC ,S:; IFINTERFSI=RFSTHENUR=-UR 

PRINT" Sslalglsim] IOEHE s" INTK127S-127872214RD "IM ":PRINT"WEIT s "RIGHT$CTI 


S=S+QKPEEKK TI>+INTERNOK 1DRURD 
IFPEEK£WC+ZEISIOTHENM=-1:GCTC1 10 

E=PEEK«VC+165-WU: IFS>ZSSTHENPOKEYC+1S „U+1TE-E :S=4:G0T0SSA 
IFSZETHENPÜKEYC+H1S „U+1TE-E :5=255 

NEXTR 

FÜRR=ETOSE :POKEYC+39 ,2:POKEVYC+39 .3:NEXT :POKESI+24 ,0 
T=YALKRIGHT$STI$,25> 

PA=FEEKKWVCH SIFPEEKLYC+1E)-bI=1 THENPA=PA+255 





84 B$="G" :GOSUBIZAA 

985 IFSCCIIAATHENIAA2 

3868 IFSC{=SAGTHENIaGE 

387 FÜRR=GTC24 :POKESI+R,&@:NEXT ; 

389 POKESI+S,15:POKESI+8,15:POKESI+4.33:POKESI+1 , 1A@:POKESI+24,10 

33a FORR=1T0O3:FÜRS=4ATO1ZASTEPZA:POKESI , 188 :POKESI+1 ,S:FÜRC=@TU1SASNEXTC,S.R 
932 POÜKESI+1,G:POKESI+24,0:G0OSUB18GG 

332 PRINT"’SQ ee" - FÜRR=1TOS :PRINTTABEFI "RT TABEALDH 


394 NEXT =PRINTTARE 7 Re" 

3368 PRINT"TIIITIIIIPTRBEISI| _ AS PO" 

>37 PRINT"E"TABS13>"#UPER LANDUNG" 

338 PRINT"W"TREX“IAI"#IE HABEN LEBER Sa@" :PRINT"M"TABKIZD"FUNKTE ERREICHT" 
333 PRINT" IS" :GOTCia1a 

1202 GÜSUBIEAA:PRINT"S","A IOLLE LANDUNG... M':G0To1ala 
12aa2 GOSUR1SaA 

1acS PRINT"S","3 #ALUBERE LANDUNG..." 

1a1a PRINT"M"."+EIT :"T"#EKUNDEN" 

10Sa GOTU1Z4a 

11a FORA=RTOZ21:POKEYC+1 ,A:PRINT" Seelen |OEHE a" INTSIZFS-12FSFZZ1 HR I" 
111@ PRINT"WEIT » "RIGHT$LTI$,25 :NEXT 

1124 T=YALSRIGHT$ETIS,2>5 

1130 PA=PEEKXWC) :IFPEEKKYC+1S)-U=1 THENPA=PA+255 

1140 POKESI+24,0:GCSUB1SaG 

11F@ PRINT"®","#IE SIND IN EINEM |AUM" 

118@ PRINT"M","HAENGEN GEBLIEBEN." 

119. PRINT"@"."+EIT :"T"#EKUNDEN” 

12aG LF=iN+S>#8 :Z=ABSÄLP-PA+245 

1218 SC=INTILIA-1 ZZ) HL 1A TI EIFZLIISANDSCHATHENSC=SC+HZUG 
1224 IFSCHAANDMZATHENSC=INTE-SCHED 

123@4 IFSC<-1AGETHENSC=- 1 EGC 

1235 IFB$="G"THENB$="" RETURN 

124&G PRINT" ." "SC"TUNKTE" 

1245 SCKID=SCKID+SC 

1254 IFSCHHITHENHI=SC :HI$=NELID 

1264 PÜKE198.@:WUAIT198,1:POKE1IS,A 

127& NEXTI 

1284 GÜSUB1SCA:RU=RU+1 :GCTA3FE 

1424 GOSUR 1804: PÜKESI+24,4 

1412 PRINT" Selslelsisim" „"OIEVIELE #PIELER ?"; 

1424 GETR$: IFA$=""THENIGZ2G 

1434 SP=YALLAS> :IFSPILTHENI42G 

1444 PRINTSP 

1484 FÜRR=1TOSP 

147@ GOSUB1ESAA:PRINT" Selalaisein" „"#PIELER"R:PRINT, "ARME" 3: INPUTNELR> 
1480 IFLENSNSKR5DDLETHENIAFE 

1492 NEXT 

1491 GOSUB1EAE:PRINT" SIaelallel" "8 HOVSTICKBHTEFROARD" 
1492 GETIK$EIFIK$S=" T" THENI=56321 :GOT01493 

1433 IFIK$="K"THEN T=203:G0T01499 

1434 GÜOTU1432 

1439 RETURN 

1Sag GÜSUBIESAA 

1505 PRINT'SE","3 —ALLSCHIRMSPRINGEN m" 

1S51a PRINT." "RU". _UNDES" 

1524 FORR=1TOSP 

1520 PRINT"A".NEERD." "FSCKR) 

1554 NE#KT 

15684 PRINT"® IGECHSTPLUHKTZAHL so" HUGH MUHIS" 

157@ POKE1SS,.G:MAITISS,1:GETA$ :IFAS="%" THENSTOP GEHD) 
1584 RETURN 

1200 PRINT"S"::FÜRC=ATOZREPRINT" 

1816 RETUFN 

lsZza STÜr 

1200 SSEHEEFEEEHEESEEFEHEFFFEFFF HET HEHE 





Helicopter-Attack 


für den Apple II 


In Heft 8/83 veröffentlichten wir ein Programm für den VC-20, bei dem es darum ging, 
als Hubschrauberpilot, möglichst viele Panzer abzuschießen. 
Diesmal ist es umgekehrt; möglichst viele Hubschrauber sollen vom Himmel geholt 


werden. 


Eine Stadt wird von Helicoptern 
angegriffen. Der Spieler muß die Stadt 
verteidigen. Dafür hat er eine Laser- 
kanone, die mit den Tasten O und P 
bewegt wird. Der Hubschrauber wirft 
mit Gasbombem, die noch in der Luft 


abgeschossen werden müssen, da drei 
solcher Bomben die Stadt vernichten 
würden. Wird der Helicopter getroffen, 
stürzt er zwar auf die Stadt. aber es 
strömt kein Gas aus. Nach 1000 
Punkten wird die Stadt immer wieder 


regeneriert und der Helicopter schnel- 
ler und gefährlicher. 

Jeder Schuß mit der Laserkanone 
kostet Energie und wenn die Energie 
verbraucht ist, ist die Stadt verloren. 


5 GAME = O:RT(1) = O:BY(1) = 10:H 
Xt1) = 260:HY(1) = 10:HE = 1 
:H=0 

FOR I = 768 TO 876 

READ A: FOKE I,A 

NEXT I 

FOKE 232,0: POKE 233,3 

DATA 5,0,12,0,16,0,31,0,82 
‚0,100,0 

DATA 63,45,45,0 

DATA 63,63,63,63,47,45,45,45 
„45,45,45,45,45,61,0 

DATA 62,62,63,63,62,62, 
4 5,45,45,37,37,37,46,61,62, 
62,62,63,63,47,53,45,54,63,6 
3,33,42,45,45,45,45,63, 39,60 


DATA 63,39,45,45,44,54,37,44, 
54,37,44,46,44,38,37,3 

DATA 63,44,45,46,36,63,63,4 
4,45,61,60,39,45,60,47,36,52 
‚o 

DATA  60,45,60,39,45,39,44, 
63,0 

SCALE= 1 

REM KK START KK 

TEXT : HOME 

HTAB 12: PRINT "HELICOFTER A 
TTACK" 

FRINT : PRINT "COPYRIGHT > 2 
4.3.1983 & BY CARSTEN FREY" 
PRINT : FRINT "SOME HELICOPT 
ERS WANT TO DESTROY YOUR": PRINT 
: FRINT "TOWN.TRY TO SHOGT T 
HE HELICOPTERS DOWN" ER 
PRINT : PRINT "AND SAVE YOUR 
TOWN FROM THE BOMES.ONLY": FRINT 
: PRINT "FIVE BOMBS AND YOUR 
TOWN WAS DESTROYED. " 

PRINT : FRINT "DON’T KEEP TI 
RED AND TRY TO MANABE THIS": 
PRINT : FRINT "GAME.GOOD LU 
CK ttım 

PRINT : FRINT "PRESS ANY KEY 
TO CONTINUE 

IF PEEK ( - 16384) > 127 THEN 
G0TO 500 


60TO 175 

REM Xkk GRAFHIC Krkr 

HOME : HGR2 

HCOLOR= 5: FOR I = 10 TO 270 
: HPLOT 1,120 TO 1,130: NEXT 
1 

HPLOT 10,140 TO 20,140 TO 20 
‚141 TO 10,141 TO 10,150 TO 
20,150 TO 20,149 TO 11,149 TO 
11,140: HPLOT 10,145 TD 20,1 
45 TO 20,146 TO 10,146 

HPLOT 10,144 TO 20,144 

FOR I = 30 TO 270: HPLOT 1,1 
40 TO 1,150: NEXT I 

REM Akt STADT KK 

FOR I = 10 TO 15: HPLOT 1,12 
0 TO 1,(125 - DD: NEXT I: FOR 
I = 20 TO 15 STEP - 1: HPLOT 
1,120 TO 1,(95 + D: NEXT I 
FOR I = 30 TO 50: HPLOT 1,11 
5 TO 1,120: NEXT I: FOR I = 
35 TO 40:H = H # 1: HPLOT I, 
115 TO 1,(115 - Hz: NEXT I: FOR 
I = 40 TO 45:H = H - 1: HPLOT 
1,115 TO I,(115 - W: NEXT I 


FOR I = 60 TO 75: HFLOT 1,12 
0 TO 1,115: NEXT I: FOR I = 
60 TO 65: HPLOT 1,115 TO 1,1 
10: NEXT I 

FOR I = 85 TD 100: HPLOT 1,1 
20 TO 1,115: NEXT I: FOR I = 
85 TO 92:H = H # 1: HPLOT I, 
115 TO 1,(115 - Hr NEXT I 

H = 9: FOR I = 93 TO 100:H = 
H - 1: HPLOT 1,115 TO 1,(115 
- Hz: NEXT I 

FOR I = 110 TO 120: HPLOT I, 
120 TO 1,115: NEXT I: FOR I = 
110 TO 115:H = H + 1: HPLOT 
1,115 TO I, (115 -“H)z NEXT I 
:H =H +1: FOR I = 115 TO 1 
20:H = H - 1: HFLOT 1,115 TO 
1,115 - Hz NEXT I 

H=0 

FOR I = 130 TO 140:H =H + 1 
: HPLOT 1,120 TO I1,(120 - H) 





: NEXT I: FOR I = 140 TO 150 2 AT HX{D,HY(D 
:H =H- 1: HPLOT 1,120 TO I RTEDD = RT(D + 16: IF RTED > 
‚(120 - W: NEXT I 64 THEN RT(D) = 0 
FOR I = 160 TO 170: HPLOT I, ROT= RT(I): DRAW 1 AT (HX(DD 
120 TO 1,115: NEXT I: FOR I = + 10),HY{D) + 4: ROT= 0 
160 TO 165:H = H + 1: HPLOT BX(DD = HX(D) 
1,115 TO 1,(115 - W: NEXT I 20 IF BO(I) = 1 THEN GOTO 810 
:H=H+ 1: FOR I = 165 TO 1 B= INT (50% RND (1): IF 
70:H = H - 1: HPLOT 1,115 TO B > 40 THEN BO(D = 1 
1,115 - Hz NEXT I REM %%% SCHLEIFENENDE XX% 
H=0 NEXT I 
FOR I = 180 TO 195: HPLOT I, HOME : VTAB 22: HTAR 2: PRINT 
120 TO 1,115: NEXT I: FOR I = "SCORE :";PU: VTAB 22: HTAB 
180 TO 188:H = H + 1: HPLOT 19: FRINT "HITS ON YOUR TOWN 
1,115 TO 1,(115 - Hz NEXT I 2"; TRE 
G0TO 670 
H = 9: FOR I = 188 TO 195:H = HCOLOR= 0: DRAW 5 AT BX(D) + 
H - 1: HPLOT 1,115 TO 1, (115 (BAME % 5) ,BY(I 
= MW: NEXT I BY(D = BY(DD +5 
FOR I = 205 TO 220: HPLOT I, HCOLOR= 3: DRAW 5 AT BX(DD,B 
120 TO 1,115: NEXT I: FOR I = Yin) 
215 TO 220: HPLOT 1,115 TO I IF BYtnD) 
„110: NEXT I ri 


H=0 60TO 740 


FOR I = 230 TO 250: HPLOT I, REM x Bol 
115 TO 1,120: NEXT I: FOR I = URFRER EHE 


235 TO 240:H = H + 1: HPLOT 
1,115 TO 1,(115 - W: NEXT I 
: FOR I = 240 TO 245:H =H - 
1: HPLOT 1,115 T0 I,(115 - H 
)z NEXT I 

22H =0 

5 FOR I = 260 TO 270: HPLOT I, 
120 TO 1,115: NEXT I: FOR I = 
260 TO 265:H = H + 1: HPLOT 
1,120 TO 1,(115 - W: NEXT I 
: FOR I = 265 TO 270:H =H - BYE - 10 
1: HPLOT 1,120 TO 1,(115 - H NEXT U 


)z NEXT I 2 
IF DUR © > 2 THEN DUR = 2: GOTO 
IF GAME © 2 THEN GOTO 645 920 ä s 


G0TO 450 HCOLOR= S:DUR = 6 
FOR I = 0 TO 279: HCOLOR= 0: EY(1) = HY(T) 


HPLOT 1,0 TO 1,90: NEXT I IF GAM$ = "ENDE" THEN RET 
REM X SPIELBEGINN Krkk 2 
EN = 270:6AME = GAME + 1: HCOLOR= 
3 IF TRE = 5 THEN 60TD 5000 
IF GAME > 5 THEN GAME = 5 770 GOTO 740 
DRAW 4 AT 140,112: DRAW 4 AT 1000 REM X SHODT Kr 
15,112: DRAW 4 AT 265,112 1005 HE = 1 
REM KK SCHLEIFE Kkkkk 1010 IF GUN$ "0" THEN GOTO 11 
IF FUN > = (GAME & 1000) THEN 00 
G0TO 500 1020 IF GUN$ = "F" THEN GOTO 20 
IF PEEK ( - 16384) > 127 THEN 00 
GET GUN$: GOSUR 1000 1030 EN=EN-1 
FORI=1TOHE 1035 HCOLOR= 0: HPLOT 270,150 TO 
ROT= 0: HCOLOR= 0: DRAW 3 AT 270,140: HPLOT 269,150 TO 26 
HX{D),HY(D): DRAW 2 AT HX{D) 9,140: HFLOT 271,140 TD 271, 
„HY{DD: ROT= RT(D: DRAW 1 AT 150 
HXDD + 10),HYIDD + Ar ROT= 1040 HCOLOR= 0: HPLOT EN,140 TO 
ö j EN, 150 
HCOLDR= 3 1050  HCOLOR= 3 
HX{DD = HKID = (GAME X S)= IF 1055 IF EN < 20 THEN GOTO 5000 
HX{DD © (BAME % 10) THEN HXt 1060 RETURN 
1) = 270 - (GAME X 7): IF BO "1 00N El, BER U EREN 
(DD = 1 THEN HCOLOR= 0: DRAW 1110 G0 = BU = ie IFEDUE = 3 THEN 


BU= -3 
5 AT BX(D),BYtD _ 
DRAW 3 AT HX(I),HYCI): DRAW 1120 REM @#%# ABFRAGE Ku0% 


> 105 THEN GOTO 90 


HCOLOR= 0: DRAW 5 AT BX(D),B 
YD 

TRE = TRE # 1 

REM xx%% ZEICHNEN Kalk 

FOR U = BX(1) - 10 TOD BX(1) + 

10 

HCOLOR= 0: IF DUR = 2 THEN 6GOTO 
950 

HCOLOR= INT (7 X RND (1)) 
HPLOT BX(1),BY(1) + 10 TO U, 





1130 


1140 


1150 


1160 


1170 


1180 


1190 


IF GU = 3 THEN A 
so 

IF GU - 2 THEN A 
Ö 

IF GU - 1 THEN A 
Oo 

IF GU = O THEN A 


GU = 1 THEN A 
GU THEN A 


IF GU THEN A = 250:B 
50 

HCOLOR= 3: HFLOT 140,103 
A,B 

HCOLOR= 0: HPLOT 140,103 TO 
A,B 

IFA& HX(1) + 10 ANDA > H 
X(1) - 10 THEN GDTO 1901 

IF BO(1) = 0 THEN GOTO 190 
[e} ‚ 
IF GU = 3 AND (BXt1) - BYdi 
)) = 175 THEN GOTO 2100 

IF GU © OÖ AND (BX(1) / BY 
I) > LAND (BXt1) / BY) < 
2 THEN GOTO 2100 

IF GU = 2 AND EX(1) + BY(l) 
> 240 AND BX(1) + BY) < 2 
60 THEN GOTO 2100 

GOTO 1030 

IF EB > 0 THEN GDTO 1900 
REM %#%% HELIKOFTER DOWN % 
xr% 

I=1 


2 HTR = HTR + 1 


2000 
2010 


2020 
2100 
2110 


HCOLOR= OÖ: DRAW 5 AT BX{D, 
BY{I)z DRAW 3 AT HX(T) - 3,H 
Y{DD- 

HCOLOR= 0: DRAW 3 AT HX(D), 
HY{I): DRAW 2 AT HX(T),HY(D) 
: ROT= RT{T): DRAW 1 AT HX(I 
) + 10,HY{T) + 4: ROT= 0: HCOLOR= 
3 
Iı=1 

HCOLOR= 0: DRAW S AT BX{1), 
BY(D) 

GOTO 3000 
FUN = FUN + 10:HY(1) = 10:BO 
“D O0:BY{I) = 10: GOTO 190 
0 

REM 3er Poaack 
GU = GU + 1: IF GU > 3 THEN 
GU=3 

GDTO 1120 

REM xx BOMRB DOWN kk 

HEOLOR= 06: DRAW S AT BX(1), 
BY(l) 

BOi1) = 0:BY(1) = 10:FUN = P 
UN + 50: GOTD 1900 

REM aakıak HEL DOWN 3aakack 
I=1 
ABT = INT (10% RND (1): IF 
ABT < 2 THEN ABT = 2 

FOR U = 20 TO 110 STEP 10 

HCOLOR= 0: ROT= RT: DRAW 3 AT 
HX{I),HY{ID: DRAW 2 AT HX{D) 


3030 
3035 


5040 


3050 
3060 


3065 


3070 
3075 
3080 
3090 
3095 


3096 


3100 


53110 


5110 


5112 


5113 
5115 


5117 
5120 
5130 
5140 
5150 
5155 
5160 
5180 


5181 
5190 


5200 


s210 


„HY{DD 

HCOLOR= 3 

HX(TD) = HXT) - ABT: IF HXtI 
) x 20 THEN HX(T) = 260 

RT = RT + 16: IF RT > 64 THEN 
RT=0 

ROT= RT 

HY(D = U 
TIE = INT (16 X RND (1): IF 
TIE <£ 10 THEN TIE = 10 

DRAW 3 AT HX{T),HY{D): DRAW 
2 AT HX{D),HY(DD 

FOR Ul = 1 TO 50: NEXT U1 
NEXT U 

HCOLOR= 0: DRAW 3 AT HX(D), 
HY{ID): DRAW 2 AT HX{TD) ,HY(1) 


SHO = INT (50% RND (1): IF 
SHO © 15 THEN SHO = 15 

IF HX(1) + SHO > 279 OR HX{ 
1) - SHO « 1 THEN GOTO 3095 


FOR U = HX{T) - SHO TO HX{I 
) + SHO 

HCOLOR= 0: IF DUR = 2 THEN 
60TO 3130 

HCOLOR= INT (7 % RND (1)) 


HPLOT HX(I),HY{I) + TIE TO 
U,HY(I) - SO 

NEXT U 

IF DUR < 2 THEN DUR = 2: GOTO 
3100 
DUR = 0 

G0TD 1920 

REM xxx ENDE Krk 

HCOLOR= 0: FOR I = 1 TO HE: 
DRAW 3 AT HX(ID),HY(T): DRAW 
2 AT HX(D,HY(DD: ROT= RT(D) 

: DRAW 1 AT (HXTD + 10) ,HYL 
ID) + 4: ROT= 0: NEXT I 

REM ecıkk SCORE Kkıkk 

FOR I = 1 TO 2500: NEXT I: TEXT 


HOME 

INVERSE : HTAR 14: FRINT "F 
INAL RESULTS" 

FRINT : NORMAL 

PRINT "YOUR SCORE : "FUN 
FRINT : FRINT "LAST HIGHSCO 
RE 2"; HFU 

FRINT : PRINT "HITS ON YOUR 
TOWN (BOMBS) :";TRE 

PRINT : FRINT "HITS ON YOUR 
TOWN (HELICOFTER) 2";HTR 

IF FUN > HPU THEN HPU = FUN 


FRINT : FRINT "NEW HIGH SCO 
RE :";HPU 

Il = (100 X FUN) / {GAME * 2 
500) 

II = INT (IV) 

PRINT : FRINT "HITS RATING 

ler 28 

FRINT : FRINT "SHOOTS LEFT 

z";EN = 19 

60T0 5070 





APPLE I 


Können Sie ein bischen Fantasie auf- 
bringen? Dann stellen Sie sich doch 
einmal vor Sie befänden sich im Jahr 500 
y. Christi in Karylon, einer alten Stadt in 
Agypten. Hier sind Sie gerade zum 
Alleinherrscher für den Zeitraum von 10 
Jahren bestimmt worden. Dies war 


natürlich in den damaligen Wirren der 
Zeit nicht ganz einfach und auch nicht 
ganz ungefährlich. 


Karylon 
für den Apple II 


Ihr Volk erwartet von Ihnen, daß Sie 
das Ihnen anvertraute Land nach 
bestem Gewissen verwalten und ver- 
mehren. Hierfür stehen Ihnen Land 
und Korn zur Verfügung. | 

Mit etwas Glück und viel Überlegung 
sollen Sie dafür sorgen, daß keiner der 
Ihnen anvertrauten Leute hungers 
sterben muß. Erdbeben. Diebe usw. 
machen Ihnen das Wirtschaften natür- 


lich schwer. 

Haben Sie schließlich 10 Jahre über- 
lebt, lernen Sie eine weitere Kehrseite 
des Lebens kennen: Man läßt Sie nicht 
gehen. Für weitere 10 Jahre sind Sie 
zum Herrschen verdammt. 

Alls schlechter Herrscher haben Sie zu 
diesem Zeitpunkt ohnehin Ihr Leben 
verwirkt. Lediglich die Todesart vari- 
Iert. 








50 REM Bakaalanakalaakak 140 FRINT "BITTE EINE TASTE DRUE 
60 REM % KARYLON x CKEN are N 
70 REM X WRITTEN BY % 150 WAIT - 16384,128: FOKE - 1 
80 REM x CARSTEN x 6368, 0 
90 REM %* FREY X 160 CLEAR :S = 2800:H = 3000:E = 
95 REM RRakaaanakakaaak 200:Y = I:A = 1000:1I = 5:0 = 
100 HOME 1 
110 HTAB 16: INVERSE : FRINT "KA 170 TEXT : HOME :Z = Z + 1: HTAR 
RYLON": NORMAL 14: INVERSE : FRINT "JAHRESB 
20 PRINT : FRINT "DU RIST HERRS ERICHT": NORMAL 
CHER DES VOLKES VON" 175 POKE 34,2 
130 PRINT : PRINT "KARYLON.DEINE 180 PRINT "IM JAHRE ";27;" STARBE 


AMTSZEIT BETRAEGT 10 JAHRE" 


| 14 Homecomputer 


N "3D3" LEUTE." 


Oktober 1983 


FRINT 

PRINT I;" LEUTE KAMEN IN DAS 
LAND." 

P=P + 1:Di = Di + D: PRINT 


IF @ > 0 THEN GOTD 240 

LETP= INT (P/2D 

PRINT "DURCH EIN ERDBEBEN KA 

MEN DIE HAELFTE": FRINT "DER 
EINWOHNEN DEINES LANDES UM. 


GOSUB 1340 
PRINT : PRINT "DAS LAND HAT 
NUN ";P3" EINWOHNER. " 
PRINT : PRINT "DAS LAND IST 
":A;" HEKTAR GROSS. " 
PRINT : PRINT "DIE ERNTE BET 
RUG "3Y;" BALLEN/HEKTAR. " 
PRINT : PRINT "DIEBE VERNICH 
TETEN ";Ez" BALLEN. " 
PRINT : PRINT "DU HAST "353" 
BALLEN GELAGERT." 
IF Z = 11 + JAHR THEN GOTO 
920 
C= INT (1O* RND (1)) 
Y=C+17 
PRINT : PRINT "LAND KOSTET " 
»Y:" BALLEN/HEKTAR. " 
FRINT : PRINT "WIEVIEL HEKTA 
R SOLL ICH KAUFEN" 
GOSUR 1260 
IF (YXO) £ = S THEN 6G0TO 
390 
GOSUB 840 


GOTO 420 
-Yx0:0=0 


GOTO 480 
FRINT "WIEVIEL LAND SOLL ICH 
VERKAUFEN" 
GOSUR 1260 
IFA > Q@ THEN GOTO 470 
GOSUR 840 
GOTO 420 
A=A-0:5=-S+Yx0:cC=0 


PRINT 

FRINT "WIEVIEL GETREIDE ALS 
NAHRUNG" 

INFUT @ 

IF <@ x 0) THEN GOTO 900 

IF (@< =5) THEN GOTD 550 


GOSUR 860 

GDTD 490 
5 5:- El 

FRINT "WIEVIEL HEKTAR BEPFLA 





680 
690 
700 
710 
720 
740 


750 
760 


720 
930 


IF Dx< 0 THEN GOTO 900 

IF D»> 5 THEN GOSUR 1320: GOTO 
360 

IF (A> =D) THEN GOTO 660 


PRINT : GOSUB 840 

G0TO 560 

IFD« (10 X F) THEN GOTO & 
90 

PRINT "ABER DU HAST NUR ";F5 
" LEUTE,"," UM DIE FELDER ZU 
BEFFLANZEN. " 

G0TO 560 

S=-5S- NTD/D2 
GOSUR 880 

Y=CH=DHIYE=O0 
GOSUB 880 

E= INT(S/0:5=5-E+ 
H 
GOSUR 880 

I= INT(CCK (ZOXA+S) 7 
F/ 100 + D:C= INT (@/2 
©):Q = INT (10% (2% FRND 
1) = 30) 

IFF& C THEN GOTO 210 

D=F-C 
IFD».75% P THEN GOTO 82 
(e) 

Fl= (2-1) XPl+D% 100 / 
P) / Z:F = C:Di = Di + D9 
GOTO 170 
FRINT "ES STARBEN ";D;" LEUT 
E IN EINEM JAHR.": FRINT "DE 
INE UNTERTANEN REVOLTIEREN U 
ND ": FRINT "ERMORDEN DICH... 
GOTO 1180 
FRINT "DU HAST NUR ";A;" HEK 
TAR LAND." 

FRINT 

RETURN ö 

FRINT "DU HAST NUR ":5;" BAL 
LEN GETREIDE." 

FRINT 

RETURN 


= INTERND (DS) +1 


- RETURN 


FRINT "WEGEN UNSINNIGER BEFE 
HLE WURDEST DU": FRINT "DEIN 
ES AMTES ENTHOBEN...." 

G0TO 1250 

Pl = INT (Pi X 10) 7 10 
FRINT "IN DEINER 10-JAEHRIGE 
N AMTSZEIT STARBEN DURSCHNIT 
TLICH "z3P13"% DER EINWOHNER, 

D.H. ES STARBEN ";D1;" LE 
UTE." 


FMOL4A=AY/F:L= INT (L4 x 10 


o)) / 100 





FRINT "AM ANFANG DEINER HERR 
SCHAFFT HATTE JEDER": PRINT 
"EINWOHNER 10 HEKTAR LAND.JE 
TZT HAT": FRINT =: PRINT L;" 
HEKTAR LAND.” 

WAIT - 16384,128: FOKE - 
6368,0 

HOME 

IF Fi > 33 THEN GOTO 830 
IFL > 12 THEN GOTO 1170 
IF Fl > 10 THEN GOTO 1110 
IFL > 9 THEN 6G0TO 1130 

IF Fi > - 1 THEN GOTO 114 
[) 

IFL > 6 THEN GOTO 1150 
GOTD 1160 

HOME 

PRINT "DIE BEWOHNER KARYLON 
S WOLLEN DICH NOCH": FRINT : 
FRINT "WEITERE 10 JAHRE AN 
DER SPITZE IHRES": PRINT : FRINT 
"STRATEB...0." 

JAHR = JAHR + 10 

WAIT - 16384,128: FOKE - 


FRINT "DU WARSTS EIN MITTEL 
GUTER KOENIG.": FRINT : FRINT 
"SEHR RUHMVOLL IST DAS NICHT 


GOTO 1210 

FRINT "DIE GROESSE DEINE LA 
NDES IST FAST": FRINT z PRINT 
"GLEICHGERBLIEBEN.": GOTO 121 

[e) 

FRINT "DAS VOLK WILL DICH W 
EITERE 10 JAHRE AN": FRINT : 
FRINT "SEINER SFITZE WISSEN 
.": GOTD 1070 

FRINT "DU WARST KEIN ALZU G 
UTER HERRSCHER.": FRINT #+ FRINT 
"DU WIRST DEINES AMTES ENTHO 
BEN. ...0" 

FRINT "WEGEN FRASSEREI WIRS 

T DU ERSCHOSSEN.": FRINT : FRINT 
"SCHADE,DU SOLLTEST HALT BES 
SER SEIN.": GOTD 1190 

FRINT "DU WARST EIN GUTER H 
ERRSCHER.DAS VOLK": FRINT x PRINT 
"BESTIMMTE DICH FUER WEITERE 

10 JAHRE": FRINT x PRINT "Z 
UM HERRSCHER KARYLONS......" 
JAHR = JAHR + 10: FOR I = 1 

TO 2000: NEXT I: TEXT : GOTO 
170 


1180 PRINT "DU WARST ZU GEIZIG.. 


1190  GOTO 1250 


1370 


1380 


1420 
1430 


FRINT "DEINE HERSCHAFFT WAR 
NICHT SCHLECHT.” 
AB:= INT {Fk RND (1)) + 2 


IFAR« F 7/7 2 THEN GOTO 12 
so 

FRINT AB;" DEINER UNTERTANE 
N MACHTEN DICH": FRINT : FRINT 
"WIEDER ZUM HERRSCHER" 

S0T0 1070 

END 

INFUT Q 

IF @« ö THEN GOTO F00 
RETURN 

FRINT "DU HAST NUR "355" BA 
LLEN." 

RETURN 
GH = INTCRND (1) K 19) + 

n 

IF GH = 1 THEN FRINT "DEIN 
VOLE BEKAM ZUWACHS. „20... " 
:P=F+ INT {FP / 2): RETURN 


IF GH = 2 THENSA = INT (S 

/ 2): FRINT "WEGEN ALTER SC 
HULDEN WURDEN ";5A: FRINT "RB 
ALLEN BESCHLAGNAHMT.":S = S - 
;SA: RETURN 
\ IF GH = 3 THENAF = INT ( RND 
(1) x 25) + 1:AY = AF X 10: PRINT 
"DU HAST "zAY;" HEKTAR LAND 
GEERET.":A = A + AY: RETURN 


IF GH = 4 THEN BF = INT ( RND 
(DO) +1:BEY=EF % 10: FRINT 
"DEIN FEIND ANNEKTIERTE ";BY 
3" HEKTAR": FRINT "LAND...": 

A= A - BY: RETURN 

IF 2 = 25 THEN FRINT "JUBI 
LAEUM !!! 25 JAHRE HERRSCHER 
": PRINT "EIN FREUND SCHENKT 
DIR 250 HEKTAR": FRINT "LAN 
D.....":A = A + 250: RETURN 


IF GH = 5 THEN GU = INT (1 
000% RND (1)): FRINT "DEIN 
E SOLDATEN HABEN EINE RAEUBE 
REANDE GEFANGENGENDMMEN. DU 
BEKOMMST ";GU:5 = S + GU: FRINT 
"BALLEN BRLOHNUNG |": RETURN 


IF GH = 7 THEN GE = INT (5 
00% RND (1))z FRINT "AUS D 
EINEN GETREIDELAGERN WERDEN 
";6K:S = 5 - GKz PRINT "BALL 
EN VON UNBEKANNTEN ENTWENDET 

TE" ERETURN 

RETURN 

60T 1070 





Kniffel 


für den TI-99/4A 


”Kniffel” wurde schon von den Landsern im Ersten Weltkrieg, unter dem Namen 
"Hindenburgspiel”, geschätzt. Sehr bekannt gewesen ist es vor allem in den zwanziger- 
und dreißiger Jahren in Skandinavien unter dem Namen ”Yahtzee”. 


Nachdem Anzahl und Namen der 
Spieler eingegeben worden sind, ruft 
der Computer automatisch für jeden 
Spieldurchgang die Namen auf. 

Jeder Spieler hat max. 3 Würfe mit bis 
zu 5 Würfeln pro Durchgang und muß 
versuchen, eine für ihn sinnvolle 
Zahlenkombination zu erreichen. 

Mit den Tasten | - 5 lassen sich ent- 
sprechend die jeweiligen Zahlen des 
Wurfes (Taste 3=3. Zahl des Wurfes) 
die gesammelt werden wollen, in das 
nächste Wurffeld schreiben. 

Mit der Leertaste würfeltman die noch 
übriggebliebenen, nicht gesammelten 
Würfel dazu. 

Durch Drücken der Taste "R" läßt sich 
ein Vertippen der Tasten "1 - 5” wieder 
rückgängig machen. 

Hat man alle 3 Würfe verbraucht oder 
schon vorher eine geeignete Zahlen- 





kombination erreicht, kann nun die 
Punktzahl für diese Zahlenreihe durch 
Drücken der davorstehenden Taste 
eingetragen und gespeichert werden, 
wobei die gewürfelten Zahlen für die 
Kombination G-L noch geordnet wer- 
den müssen. Hierzu muß die Taste "Q” 
gedrückt werden und die Zahlen wie 
folgt geordnet (mit Hilfe der Tasten 1-5; 
5.0.): 


G-3er-Pasch: 
H-4er-Pasch: & 


514 XXXyZ 
3 
I-Full House: 6. 
4 
A 


36  xXXXXy 
XXXyYy 
Uvwxw 
Vwxyz 


1 
3 
2 
5) 


K-Straße (kl.): 
L-Straße (gr.): 


Falls die gewürfelte Zahlenkombi- 
nation nicht in die Liste eingetragen 
werden kann, muß ein beliebiges, noch 
freies Zahlenfeld der Liste gestrichen 





werden (d.h. Punktzahl = O). Dafür 
braucht nur die Taste ”S” gedrückt 
werden, und anschließend die Taste 
des zu streichenden Zahlenfeldes. 
Nachdem der Spieler seine Zahlen- 
kombination eingetragen hat, muß er 
die ENTER-Taste drücken, und der 
Computer ruft den nächsten Spieler 
auf. 

Wenn alle 13 Durchgänge vorüber 
sind, zeigt der Computer automatisch 
die Punkte aller Spiele an und erstellt 
die Siegertabelle. 

Falls ein Spieler zum zweitenmaleinen 
KNIFFEL gewürfelt hat, muß er diesen 
und alle folgenden in der Zeile O- 
Bonus eintragen, wofür erje 100 Punkte 
bekommt. Dieser Bonus ist nur ein 
Zusatz und zählt nicht als eigener 
Durchgang. 





REM  sekskstelokstokststsk 758 D(KEY:A)=Y 


REM »#* Es 768 RETURN 
REM »* KNIFFEL * 7790 REM 


REM * * 788 REM * tG, H*+ * 
REM >takokakakakatatokakok 738 REM 


REM SQ® CALL SODUND(-998, 300, 2) 
CALL CLEAR s1a L=KEY-5 


OPTION BASE 1 820 KEY=KEY+4 
DIM X(5),D(14: 9) » NAME$(9) » SUM(9) 930 ee 559 


REM j S4B DIKEY-4,A)=Y 
REM »+ VORSPANN * 858 RETURN 


REM SED REM 
CALL SCREEN(16) 870 REM 
CALL COLOR(2, 9:1) SED REM 


FOR N=5 TO 12 890 CALL SOUND (-990, 300, 2) 
CALL COLOR(N»N, 1) 980 C=INTCKEY/Z. 25) _ 


NEXT.N 3 918 KEY=INTCKEY/CI+KEY 
CALL HCHAR(10: 11,42, 9) 920 IF X(4) OX(SITHEN 2520 


CALL HCHAR(11, 19,42) & 

CALL HCHAR(12: 11,42, 9) a 
CALL HCHAR(11, 11,42) SEONRRENE TEE 

CALL HCHAR(11» 12,88, 7) SED: DREI Ay 

FOR H=12 TO 18 N 

READ zZ 958 REM 

FOR N=98 TO Z STEP -1 SEO REN ee 
CALL SOUND(-1,333,3) Taoo nen 


CALL HCHAR (11H, N) 1018 CALL SOUND (-998, 300, 2) 
NEXT N 1020 KEY=KEY+3 

CALL SDUND (1098, 308: 3) 1030 C=KEY-11 

NEXT H F XC1)=8 THEN 

DATA 75, 78, 73, 70, 70, 69, 76, 32 ale Er BER 
CALL SOUND «1508, 262, 3: 3308, 3: 392, 3) 1062 Y=CKEY-11)*+10 


FOR N=1 TO 500. 1272 GOSUB 56B 
NEXT N 1052 M=2 


* +I,Me * 


GOTO 14008 10898 DIKEY-4, A)=Y 


REM 11080 RETURN 
REM + UNTERPROGRAMM * 111B REM 


REM 

IF KEY=18 THEN 452 
CALL GCHAR(KEY+3: 20: 2) 
IF 20)32 THEN 2528 1158 KEY=17 

H=INT(Y/10D) i 116D Y=Xl1IH+KLDIHKCH HK LH HK CHI +. O1 
Z=INT((Y-1D00*+H)/19) 1172 GOSUB 420 

E=Y-100+H-19*Z 1180 D(13,A)=Y 

IF H()B THEN 512 1198 RETURN 

IF Z()8 THEN 528 1208 REM 


GoTn 5392 > 
1218 REM * +0+ * 
CALL HCHAR (KEY+3, 18, H+48) 1222_ REM_ 


CALL HCHAR (KEY+3, 19, Z+48) Se ’ 
= LL SOUND(-990, 210, 2) 
CALL HCHAR (KEY+S, 20, E+48) ne = X(1)=® THEN 2520 
RETURN 
L R(19, 19, 
YEXlLIHKeZIHKLZI HK CA) +X (5) m en 


FOR N=1 TO C 
ne 1270 KEY=18 
IF XCND GO XCN+LI-M THEN 2528 1280 C=4 


2: 12 CALL GCHAR(21,18, 2) 

08 Be 1308 IF Z=32 THEN 1330 

Bu ah 131@ Y=(VALCCHR$(ZY)+1)#+10D 
RETURN 1320 00 


Y=O 
1330 Y=11 GOSUB 560 
FOR N=1 TO 5 1358 Di1)=Y 


A 1360 RRIS7® REM 
NEIN 1380 REM »* SPIELREGELN * 
er De ei CLEAR 

GOSUB 420 

RETURN 1410 CALL SCREEN(S) 

REM 1420 FOR N=2 TO 8 

REM AA-Fe 1430 CALL COLOR(N: 16: 1) 
REM 1440 NEXT N 

CALL SOUND(-990, 308, 2) 1458 CALL COLOR(9: 2,1) 
GOSUB 620 1450 CALL COLOR(10, 2,1) 


1120 REM * tNe * 
1130 REM . 
114® CALL SODUND(-99B, 380, 2) 














1479 PRINT " #8 KNIFFEL er": 

1488 PRINT "EINER - NUR 1ER ZAEHLEN" 
1430 PRINT "ZER-PASCH - MIND.S GLEICHE 
D.4 GLEICHE e ZAHLEN" 

1500 PRINT :"FULL HOUSE 3 GLEICHE 


SPIELREGELN": : 
= "2 "SECHSER = NUR GER ZAEHLEN" 


ZAHLEN" ="4ER-PASCH - MIN 


+2 GLEICHE ZAHLEN": : 


1510 PRINT "STRASSE+KL+ - 4ER-FOLGE":"STRASSSEHGRE - SER-FOLGE" 
1520 PRINT "KNIFFEL - 5 GLEICHE ZAHLEN":="CHANCE - ALLE AUGEN ZAEHLEN" =: 


1530 CALL HCHAR (24, 29, 62,2) 

1548 CALL KEY(B, KEY, STAT) 

1559 IF STAT=® THEN 1548 

1560 CALL CLEAR 

1570 PRINT "OBERE HAELFTE: BONUS r35PKTe+ 
)=63 PKT": : 

1580 PRINT "UNTERE HAELFTE: BONUS +198+ 

ABC1TIS"KNIFFEL" 

15980 ee 

1600 » KEY, STAT) 

1618 IF STAT=®D THEN 1600 

1620 CALL CLEAR 

1630 PRINT " 

R ZAHLEN" 

1648 PRINT [e} ORDNEN DER ZAHLEN": 2:3" 

1650 PRINT "  R VERBESSERN VOM 

1668 CALL KEY(D, KEY: STAT) 

1670 IF STAT=® THEN 1660 

1658 REM 

1698 REM »* SPIELSTART * 

1700 REM 

1718 CALL CLEAR 

1720 INPUT "ANZAHL DER SPIELER: "SPIEL 

1738 IF (SPIEL<1)+(SPIEL)SI) (BD THEN 1728 

1748 FOR A=1 TO SPIEL 

1758 INPUT "NAME: ":NAMES$(CA) 

1760 IF LEN(NAME$(A)) (2D THEN 1808 

1778 CALL SOUND (208, 220,3) 

1788 PRINT :" = NAME TOD LONG #*":3 

1738 GOTO 1758 

1800 NEXT A 

1819 CALL CLEAR 

1828 CALL CHAR(194, "DODODDDDDDHDDERAR") 

1830 CALL CHAR(195, "OBRDDODHDDDDDFF") 

1848 CALL CHAR(196, "BRDDDDDDDDDDDLD2") 

1850 CALL CHAR(197, "0202020202020202") 

1868 CALL CHAR(108, "8201") 

1878 CALL CHAR(199, "DOFF") 

1888 CALL CHAR(110, "4080" ) 

1890 CALL CHAR(111, "ABLDAQADLOLDADAD") 

1900 CALL CHAR(100, "OO2BL1ODEDLRELDZO") 

1918 PRINT " NAME: "3" NR. :"2" 


TASTENBEDEUTUNG" ::32"TASTE 


WENN GESAMT 


JE ZUSAETZ- 


BEDEUTUNG" 23" 1-5 SAMMELN DE 


STREICHEN VON ZAHLEN ":: 
VERTIPPEN":: 


PKT" 


1928 PRINT " A-EINER 1. WURF":" B-ZWEIER":" C-DREIER":" D-VIERER 


E-FUENFER" : "_F=SECHSER" 
1930 PRINT " GESAMT" (BONUS) 2 


WURF" =" GESAMT+i1e":: 


1948 PRINT " G-3ER-PASCH":" H-4ER-PASCH":" I-FULL HOUSE":" K-STRASSE+KLe":" L-ST 


RASSE+GR+ 3. WURF" 

1950 PRINT * M-KNIFFEL"=" N-CHANCE" =" 0-BONUS":" 
1960 FOR N=1 TO 8 

1978 CALL HCHAR (24, N+5, ASC(SEG$C"ENDSUMME" N, 1))) 
1980 NEXT N 

1998 CALL HCHAR(1D, 6, 100) 
2008 CALL HCHAR(12, 5,109) 
2018 CALL HCHAR(22,5,100) 
2028 CALL HCHAR(18, 16, 100) 
2038 CALL HCHAR(12, 15,100, 2) 
Z2048 CALL HCHAR(22, 15, 190,2) 
205@ CALL HCHAR (24; 5: 100) 
2060 CALL VCHAR (4: 17,100, 9) 
207® CALL VCHAR(14, 17, 108,9) 
2088 CALL HCHAR(24, 14, 100,4) 
28938 FOR N=7 TO 21 STEP 7 
2100 CALL HCHAR(N-1, 25, 106) 
z11® CALL HCHAR (N, 25, 197) 
2120 CALL HCHAR(N+1, 25,198) 
2138 CALL HCHAR(N-1, 26, 105,5) 
21408 CALL HCHAR(N+1, 26, 109,5) 
2150 CALL HCHAR(N-1,31, 194) 
Z168 CALL HCHAR(N, 31, 1119 
2178 CALL HCHAR(N+1, 31,110) 
Z188 NEXT N 

21980 A=QO 

2200 A=A+1 

2210 IF ASPIEL THEN 2190 
2228 CALL HCHAR(1: 12, 32,20) 
22380 CALL HCHAR(2, 12, 32:2) 
2248 CALL VCHAR(4, 18,32, 21) 
2258 CALL VCHAR(4, 19, 32, 21) 


GESAMTrZe 








. ... ... ... .. Ce ES 8 2» 90 9 08 oe 


























2260 
22708 
2250 
2290 
2300 
2318 
2320 
2330 
2340 
2350 
2360 
2370 
2360 
2390 
Z400 
z410 
2420 
2430 
2440 
2450 
2460 
2470 
Z480 
2498 
2500 
2510 
2520 
2530 
2540 
25580 
2560 
2578 
25580 
2590 
2608 
2610 
2620 
2652 
2640 
2650 
2660 
2678 
2680 
2690 
2708 
27108 
2720 
2738 
2740 
2750 
2768 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 


CALL VCHAR (4, 28, 32, 21) 
FOR N=1 TO LENCNAME$(A)) 
CALL HCHAR(1,N+11, ASC(SEG$(NAMES(CA):N, 1))) 
NEXT N 

CALL HCHAR(2, 12, A+48) 

FOR N=1 TO 13 

IF D(N,A)=B® THEN 2368 
Y=D(iN, A) 

KEY=N+INT(N/TI #4 

GOSUB 458 

NEXT N 

IF D(14,A)=® THEN 2410 
Y=D(14,A) 

KEY=18 

GOSUB 458 

IF ANZ=13*SPIEL THEN 3330 
R=® 

1I=8 

RANDOMIZE 

R=R+7 

FOR N=I+1 TO S 
XCNI=INTCEHRND)I +1 

CALL HCHAR(Rı N+25, X(N) +48) 
NEXT N 


CALL KEY (B, KEY, STAT) 
IF STAT=® THEN 2570 
IF STAT=-1 THEN 2530 
IF KEY=82 THEN 3168 
IF R=14.1 THEN 2618 
IF KEYIS3 THEN 2768 
IF R=21 THEN 2528 

IF KEY=32 THEN 2448 
IF KEY(493 THEN 2528 
IF KEYISS THEN 2528 
KEY=KEY-48 

IF I=5 THEN 2558 

FOR N=1 TO I 

IF KEY=VAL(SEG$(W$ı N, 1) I) THEN 2538 
NEXT N 

WE=WSRSTR$CKEY) 

I=I+1 

CALL GCHAR(R, KEY+25, 2) 
XEII=VALCCHRS$(Z)) 
CALL HCHAR(R+7: I+25, XCI)+48) 
IF 1(5 THEN 2758 

R=21 

GOTO 25738 

IF KEY(65 THEN 25398 
IF KEY)SS THEN 2530 
IF R=21 THEN 2820 

IF I=® THEN 2820 

CALL GCHAR(R+7, 30, zZ) 
IF Z=32 THEN 2538 

I=8 

Weztn 

Y=8 

KEY=KEY-64 

ON KEY GOSUB 718, 718, 718, 718. 718, 710, 780, 780, 870, 2530, 990, 990, 870, 1120, 1210 


‚ 2530, 2990, 2530, I082 . 


2870 
2880 
2890 
2900 
2910 
2920 
2938 
2948 
2958 
29608 
2979 
2988 
2990 
3000 
3010 
3020 
2030 
2040 
3050 
2060 
3078 
3050 
3090 
3100 


IF KEY=18 THEN 2908 
CALL KEY (B, KEY, STAT) 
IF KEYO13 THEN 28598 
CALL HCHAR (7, 26: 32:5) 
CALL HCHAR(14, 26, 32:5) 
CALL HCHAR(21, 26, 32,5) 
IF KEY=158 THEN 2420 
ANZ=ANZ+1 

IF ANZ=SPIEL#13 THEN 3298 
IF SPIEL=1 THEN 2420 
GOTO 2208 

REM 

REM »* ORDNEN * 

REM 

FOR N=1 TO 5 

CALL HCHAR (21, 25+N, 32) 
CALL HCHAR(14, 25+N, X(N)+48) 
NEXT N 

R=14.1 

GOTO 2530 

REM 

REM »* STREICHEN * 
REM 

CALL_SOUND(-3989, 500,5) 























Z118 
3120 
3138 
3148 
3158 
3168 
3178 
3150 
3190 
3200 
3218 
3220 
3230 
3240 
3250 
3268 
3270 
3280 
3290 
3300 
3310 
3320 
3330 


FOR N=1 TO 5 

X(N)=D 

NEXT N 

60T0 2538 

REM 

REM »* VERBESSERN * 
REM 

CALL SOUND (388, 208.5) 
IF R=21 THEN 2530 
CALL GCHAR(R+7,30, 2) 
IF 2032 THEN 2530 
FOR N=1 TO 5 

CALL GCHAR(R»N+25, 2) 
XND=VALCCHRS(ZI) 
CALL HÜHARCR+7, N+25: 32) 
NEXT N u 

GOTO 2508 

REM 

REM »* AUSRECHNEN * 
REM 

FOR A=1- TO SPIEL 
G0TD 2220 
Y=INT(DC1HA)+D(2, A)+DCI, A)+DEA: AI) +DCS, A)+DCE: A) 


334D_KEY=7 


3350 
3360 
3378 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
2450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 


"3538 


3540 
3550 
35608 
3578 
3588 
3590 
3600 
36108 
3620 
3630 
3640 
3650 
3668 
3670 
3680 
3690 
3708 
3718 
3720 
37308 
3740 
37508 
3760 
3778 
3750 
3790 
3800 
3818 
38208 
3830 
3840 
3850 
3860 
3870 
3380 
3890 
3900 
3910 
3920 
3930 
3940 
3958 
3960 


GOSUB 458 

IF Y(63 THEN 34080 
Y=Y+35 

CALL HCHAR(11, 19,51) 
CALL HCHAR(11, 20,53) 
KEY=3 

GOSUB 45B 

SUMCAI=Y 

Y=INTCDC7, AD+DCB, A)+DCH AM)+DCIQ» A)+DEIL,AD+DELZ» AD+DCIZ, 
KEY=13 

GOSUB 458 
SUMCAI=SSUMCAI+Y 

KEY=21 

Y=SUMCA) 

GOSUB 450 

REM 

REM »* SIEGERTABELLE * 
REM 

CALL KEY, KEY, STAT) 
IF STAT=® THEN 3530 
NEXT A 

CALL CLEAR 

CALL SCREEN(7) 

7=0 

FOR N=1 TO 20 

CALL SOUND(-208, -1,3) 
CALL SOUND(-200, -2, 3) 
NEXT N 

PRINT TAB(S) 5" SIEGERTABELLE ##" 
FOR N=1 TO INT(22/(SPIEL+1))-1 
PRINT 

NEXT N 

FOR Z=1 TO SPIEL 

FOR H=Z+1 TO SPIEL 

IF SUMCH) (SUMCZITHEN 3760 
E=SUM(Z) 

SUMCZI=SUMCH) 

SUMCH)I=E 

W$=NAMESCZ) 
NAMES (ZI) =NAMESCH) 
NAMES CHI=WS 

NEXT H 


A)+DEL1A,A)I 


PRINT TAB(SGN(1B-Z3+1) 5STR$CZI 5". "SNAME$CZI STAB(25) HSUM(Z) 


FOR N=1 TO INT(22/(SPIEL+1))-1 
PRINT 

NEXT N 

NEXT Z 

CALL KEY (DB, KEY, STAT) 

IF STAT=® THEN 3828 

CALL CLEAR 

ANZ=O 

FOR N=1 TO SPIEL 

SUM(NI=®O 

NAMES(NI="" 

FOR H=1 TO 14 

DCHıNI=B 

NEXT H 

NEXT N 

INPUT "NOCH EIN SPIEL? nm 
IF ASC(W$)=74 THEN 1718 

IF ASC(W$) (78 THEN 3930 

END * 




















Mauerklauer 
für den TI 99/4 


Das Spiel ”Mauerklauer” wird mit zwei verschiedenen Figuren gespielt: Mit den 
- "Wächter-Figuren” und der "Eigenen Figur” - Auf dem Bildschirm ist eine Mauer 
aufgebaut, über die Sie klettern müssen um ins Freie zu gelangen. 


Dies geht aber nur, wenn Sie die | türlich auch zu fangen. für jede Versetzung 50 Punkte. Ihr Ziel 
Mauersteine abräumen und somit | Auf dem Spielfeldrand befinden sich istes. über dem Bildschirmrand aufdie 
Punkte sammeln. mehrere unsichtbare Punkte, auf de- | andere Seite zu entkommen. denn 
Jetzt treten die Wächter in Aktion, | nen die eigene Figur versetzt wird. Der | dorthin können Ihnen die Wächter 
verfolgen Sie und versuchen Sie na- | Ort der Versetzung ist zufällig. es gibt nicht folgen. 


188 REM KASRRSSRAHIORK 
118 REM *%% MAUERKLAUER Kick 
1208 REM % PROGRAMMIERT VON %* 
1390 REM %%% H-P SCHUANECK 
148 REM %#%k BRAUNSCHWEIG KK 
159 REM KORK SKK 
160 CALL CHAR« 126, "1B3CSATETE4ZFESA" ) 
178 CALL CHARC 35, "3CTEFEPEFEPETESC" ) 
188 CALL CHAR< 42," LBISFFIDICIC2424" > 
138 CALL COLORG12,13,19) 
228 CALL COLORC1,7.19> 
218 CALL CLEAR 
228 PRINT RER 
23@ PRINT 
248 PRINT " MAUERKLAUER ” 
PRINT 
PRINT "KR ASRRSHORISKAORIHORSCH HACK" 
FOR TEei TO 14 
PRINT 
NEXT TE 
GOSIJB 9630 
PRINT "SPIELREGELN? IN)" 
CALL KEYEB.K,SN 
IF K=?74 THEN 3689 
IF K=78 THEN 728 
GOTO 9320 
CALL CLEAR 
CALL SCREEN“ 19) 
PRINT "EIGENE FIGUR *" 
PRINT 
PRINT "WAECHTER FIGUR m." 
PRINT z ; 
PRINT "DIE WAECHTER VERFOLGEN SIE LIND VERSUCHEN SIE ZU FANGEH.DIE MAECHTER 
KOENNEN FIBER NICHT LIEBER DIE": 
4308 FRINT "MAUERN KLETTERN" 
448 PRIHT 
458 1 SAMMELN PUNKTE, INDEM SIEDIE MAUERSTEINE ABRAEUMEN. " 
469 PRIN 
478 PRINT "AUF DEM SPIELFELD BEFINDEN SICH MEHRERE UNSICHTBARE PUHKTE, AUF DE 
NEN DIE EIGENE FIGUR WESETZT" 
480 FRINT " WIRD." 
430 PRINT "DER ORT DER VERSETZUNG IST ZUFRELLIG. ES GIET FUER JEDE WERSETZU 
NG 58 FUHKTE." 
508 PRINT 
518 FRINT "WEITER MIT SFACE TASTE." 
528 CALL KEYES,KEY.STATUS> 
saa IF KEY<>3Z THEN 520 
544 CALL CLEAR 
558 FRIHT "SIE KOEHHEN LEBER DEH BILDSCHIRMRAND AUF DIE ANDERE SEITE 
ENTKOMMEN, " 
560 PRINT 





572 PRINT "DEHH DIE WAECHTER KOENNEN DORTHIN NICHT FOLGEN." 
sea PRINT 
538 FRINT "ES WIRD EIN ZEITLIMIT GESETZT.SIE MUESSEN SICH ALSO BEEILEN 
LM ALLE MAUERN ZU BESEITIGEN." ; 
goB PRINT 
s1R PRINT "GESTEUERT WIRD MIT DEN TASTEN: " 
628 PRINT 
639 PRINT " KEOBENS  " 
e4B PRIHT "ACLINKS> SC RECHTS" 
ES FRINT " MEUNTEHN 5" 1 
65 PRINT . i 
578 PRINT "ALLES VERSTAHDEHNT bAHHM BITTE DIE SPAGE TASTE DRUECKEN." 
688 CALL KEYCA,KEY.STATUSN 
£3@ IF KEY(>SZ THEN 658 
782 SCORE=B 
718 CALL CLEAR 
720 ZEs="DIE ZEIT IST ABGELAUFEN" 
738 VES="SIE SIND GEFANGEN MORDEN VERSUCHEN SIE ES NOCHMAL" 
7428 INPUT "WIE VIELE MAUERN?" MAUER 
738 IF MAUER(4B THEN 739 
768 PRINT 
778 FRIHT "ZU VIELE MAUERN. VERSUCHEN SIE ES NOCH EINMAL." 
ran GOTC 749 
sa IF MAUER>? THEN 838 
598 PRINT 
818 PRINT "ZU WEHIG MALERN. VERSUCHEN SIE ES NOCH EINMAL." 
220 GOTO 748 
8382 IHPUT "LEGEN SIE DEN SCHWUIERIGKEITSGRAD DURCH DIE ANZAHL DER GEGNER FEST! 
"ıSGRAD 
g49 IF SGRAD>IL THEN 888 
858 FRINT 
BER PRINT "LEIDER ZU WENIG GEGNER. MAEHLEN SIE HOCH EINMAL." 
378 GOTC A308 j 
aaa IF SGRAD<S THEN 928 
32 PRINT 
288 FRINT "ZU VIELE GEGNER.WAEHLEN SIE NOCH EINMAL." 
18 GOTO 839 
228 PRINT "ZUM START SFACE TASTE DRUECKEN UND 2 MIH. HARTEN." 
3a CALL KEYEB,KEY.STATUS? 
240 IF KEYC>3Z THEN 939 
39 GOSUB 3638 
968 CALL LOLORCI2,13,1ED 
s78 CALL COLOR1,7,129 
se9 SCORE=2 . 
sad ZEIT=L IKSGRFD MALER 
1ea2 CALL CLEAR 
1919 CALL SCREEN IE) 
1020 STEINZAHL=E 
1,939 FÜR M=B TO MALER 
1049 RANDOMIZE 
1059 A=INTC ZARHD > 
19650 K=INTC ZZXRND+3) 
1878 Y=IHTC LEXRND+Z) 
1889 IF A<i THEH 1119 
19838 CALL HCHÄRCYRSS,TO 
1180 GNTO 1120 
1118 CALL VCHARSYR,SS,TO 
‚1128 NEXT M 
. 1139 REM WERSETZUNGEN 
1148’ FOR VERS=1 TO SGRADKS 
1150 YA=INTi 3OHRHD+2 7 
11698 YY=INTT ZZXRND+2) 
1179 CALL COLORES,1:15 
1189 CALL HEHARK WSV STN 





1198@ NEXT VERS 

1208 REM STEINE ZAEHLEN 

1218 FOR ZEIL=1 TO 24 

1228 FOR SPAL=1 TO 32 

1239 CALL GEHARtZEIL,SPAL, INHALT) 
1240 IF INHALT<>35 THEN 1268 

1250 STEINZAHL=STEINZAHL+ 

1268 NEXT SPRIL 

1278 NEXT ZEIL 

1289. REM STARTPÜSITIONEN 

1298 OPTION BASE 1 

130@ RANDOMIZE 

1318 DIM XRC4> 

1328 DIM YR<4> 

1338 FOR I=1 TO SGRAD 

1248 KRCTD=INTC ZEIRHD+4 I 

19358 YRCII=INTS ZEIRND+Z > 

1369 CALL GCHARCHRETIIKRELIHL,LLI 
1378 CALL GCHARS YRCTISKRCII-L,L2D 
1388 CALL GCHARCYRCTIHLSKRCLI,LAD 
1398 CALL GCHARCYRCTI-1.KREII,LA) 
1489 CALL GCHARCYREIISKREII,LSI 


1410 IF CLI+L2+LI+L4+L5)>169 THEN 1942 


1420 NEXT I 

1439 XS=INTC LSKRND+4 I 

1449 YS=INTC 1OXRND+4 ) 

1458 CALL GCHARCYS,XS,LE) 
1460 IF L6=35 THEN 1439 
1478 FOR I=1 TD SGRAD 

1488 CALL HCHARCYROIDIKRCID,L2EI 
1498 NEXT I 

1588 CALL HCHARCYS,KS,42> 
1518 REM ORIENTIERLUNSSCLEIFE 
1520 IF SGRAD<>1 THEN 1368 
1538 FOR Wei TO 1588 

1548 NEXT U 

1558 GOTO 1669 

1568 IF SGRAD<>Z2 THEN 1680 
1778 FOR U=1 TO 1200 

1588 NEXT W 

1590 GOTO 1669 

1609 IF SGRAD<>3 THEN 164Q 
1618 FOR U=1 TO 1980 

1628 NEXT U 

16398 GOTO 1668 

1648 FOR Wei TO 698 

1658 NEXT W 

1668 VAR=O 

1679 CALL SOUND -339,290,0) 
1680 CALL SOUND“ -339, 356,9) 
1699 CALL SOUND -339. 784,9) 
1708 CALL SOUND -2339,292,0) 
‚1718 CALL SOLINDE -339, 578,0) 
1720 REM SPIELBETRIEB 
‘1738 ZEIT=ZEIT-1 

1748 IF ZEIT>O THEN 1919 
1750 IF SCORE<HISCORE THEN 1770 
1768 HISCORE=SCORE 

1778 CALL CLEAR 

1760 IF VAR=i THEN 1880 
1798 PRINT ZE# 

1808 PRINT "SCHRE" SCORE 
1818 PRINT "HIGHSCORE" I HISCORE 
1820 PRINT "NOCHMAL? DANN TASTE J" 
1838 FOR T=1 TO 2009 

1849 CALL. KEYCO,KEY,STATLS) 
1858 IF STATLUS=G THEN 1879 
1860 IF KEY=74 THEN 1990 ELSE 1899 
197@ NEXT T 

1980 PRINT "GAME DVER" 

1898 END 

1988 GOTN 718 

1918 REM BEWEGLING SPIELERFIGUR 
1920 CALL KEYCB,KEY,STATUS) 
1930 IF KEY<>7S THEN 2119 
1948 CALL VCHARCYS,KS,S2) 
195A YSayYS-i 

1968 IF YS>@ THEN 1980 

19370 YSmza 

1989 CALL GCHARC YS.RS, YA) 
1999 IF VA<>3S THEN 2020 
20880 SCORE=SCHRE+19 = 
2918 STEINZAHL=STEINZAHL-1 
zo2a IF VA<>IZE THEN 2078 
2030 GOSUB 3429 

2048 FOR P=1 T0 58 

2058 NEXT P 

2068 GOTO 1750 

2070 IF VA<>3? THEN 2990 
2088 GOSUB 3300 

2098 TALL HCHARC YS,35.42 3 
2102 GOTO 2666 

2118 IF KEY<>77 THEN 2308 
2128 CALL VCHARCYS,KS,32) 


39380 FRINT "GRATULIERE! ALLE STEINE WEG-GESCHAFFT.WARTEN SIE CA 2 








2168 
2178 
2180 
2199 
2200 
22108 
2220 
2239 
2240 
2250 
2268 
2278 
2288 
2298 
2308 
2318 
2328 
2338 
2348 
2358 
2368 
2370 
2389 
2398 
2408 
24198 
2420 
2438 
2448 
2459 
2460 
2479 
2480 
2499 
2508 
2519 
2520 
2538 
2540 
2550 
2560 
2378 
zseo 
2598 
2608 
2618 
2620 
2638 
2648 
2650 
2660 
26708 
2680 
26998 
2708 
2718 
2720 
2730 
2748 
2750 
2769 
2770 
2788 
279@ 
zaoa 
2210 
2820 
2838 
2840 
2850 
2869 
2878 
2888 
2898 
2908 
2918 
2928 
2938 
2948 
2959 
2968 
2978 
2928 
29908 
3008 
3@10 
3028 
3938 
30493 
3059 
3968 


ICH NELE MAUERN AUFGEBAUT HABE." 


3942 GOSUB 3638 
3959 RETURN 


YSays+i 

IF YS(25 THEN 2168 
YS=1 

CALL GCHARC YS,KS, VA) 
IF vA<>35 THEN 2200 
SCORE=SCORE+1R 
STEINZAHL=STEINZÄHL-1 
IF VA<YI2E THEN 22€0 
GOSUB 3498 

FOR P=i TO 5a 

NEXT P 

VAR=1 

GOTO 1758 

IF vA<>97 THEN 2280 
GOSUB 3399 

CALL HCHARC YS,88,42) 
GOTO 2660 

IF KEYC>83 THEN 2489 
CALL VCHARC YS.8S,32) 
KSeXS+i 

IF %5<33 THEN 2358 
xS=1 

CALL GCHARC YS,X8, YA) 
IF VA<>35 THEN 2398 
SCORE=SCORE+1@ 
STEINZAHL=STEINZAHL-1 
IF VA<>I26 THEN 2449 
GOSUB 3490 

FOR P=i TO 58 

NEXT P 

GOTO 1759 

IF VA<>97 THEN 2460 
GOSUB 3399 

CALL VCHARCYS.XS,42) 
GNTO 2660 

IF KEY<>ES THEN 2650 
CALL VCHAR« YS,KS,32) 
RSeXS-1 

IF Xx5>8 THEN 2539 
x5=32 

CALL GCHARC YS.KS, YA) 
IF vA<>35 THEN 2570 
SCORE=SCORE+18 
STEINZAHL=STEINZAHL-1 
IF VAC>IZE THEN 2620 
GOSUB 3498 

FOR P=i TO 32 

NEXT P 

GOTO 1758 

IF VA<C>97 THEN 2640 
GOSUB 3398 

CALL VCHARC YS,K5.42) 
REM STEUERUNG RECHNERFIGUR 
IF STEINZAHL>O THEN 2698 
GOSUB 3928 

GOTO 998 

FOR I=1 TO SGRAD 

FOR SCHRITT=1 TO 2 
RANDOMIZE 
ZUF=INTCSARND > 

IF ZUF<>8 THEN 3010 
IF XRCIICKS THEN 2080 
KROTIEKRCTI-1 

IF XxRC13>8 THEN 2736 
RRCTI=L 

CALL GCHARC YRCTISKRCIY,FI 
IF F<>35 THEN 2620 
KROTIEHRC1I+L 

GOTO 3828 

IF F<>42 THEN 2850 
GOSIJB 3498 

GOTO 1758 

CALL VCHARCYROTD,KRCIIHL,I2I 
CALL VCHARSYROIDIKRCIY,L2EI 
GOTO 3278 

KROTI=KRCI +1 

IF XRC1%33 THEN 2918 
ARC1I=32 

CALL GCHARCYRETD,KROIY,FY 
IF F<)35 THEN 2950 
SROTISKRCII-1 

GOTO 3158 

IF F<>42 THEN 2988 
GOSLB 3498 

GOTO 1758 

CALL VCHARCYROTDSKRCII-1,32 
CALL VEHARCYROTIIKRCIY, 126) 
GOTO 3270 

IF YRCIICYS THEN 3159 
YRCTYEYRCII-1 

IF YRCID>O THEN 3059 
YRCTI=1 

CALL GCHARCYRCTDIKROLDIFD 
IF F<>35 THEN 3899 











YROTI=SYROTI+L 

GOTO 2888 

IF F<>42 THEN 3120 
GOSUB 3498 

GOTO 1750 

CALL VCHARCYRETIHLAKREII,SEI 
CALL VCHARCYRETDIKRCII:LZEI 
GOTO 3270 

YRETImYRCTY+I 

IF YRCI)%33 THEN 2188 
YRCIY=32 

TALL GCHARCYREINKRCII,FI 
IF F<C335 THEN 3220 
YROTIMYRCII-1 

GOTO 2759 

IF F<>42_THEN 3250 

GOSUB 34088 

GOTO 1759 

CALL VCHAREYRETI-I:KREII.GE) 
CALL VCHARCYRCIILKROTY, LEE) 
NEXT SCHRITT 

NEXT I 

GOTO 1728 

REM VERSETZUNG BERECHNEN 
R3=1INTC 3OKRND+2 > 
YS=1NTCZIXRND+2) 

SALL GCHARCYS,KS, INHALT) 
IF INHALT<>32 THEN 3318 
FOR T=1 TO 25 

CALL SOUNDS -5,11B+TK109,Q) 
NEXT T 

SCORE=SCORE+SQ 

RETURN 

PRINT VEs 

FOR C=i TO 53 

FOR S=1 TO 30 

CALL SCUNDE-1,1009-2045,5) 
NEXT S_ 

NEXT C 

YAR=I 

CALL SOLNDE 259,449,0) 
CALL SOLNDE 159,392,9) 
CALL SOUND 150,339,9) 
CALL SOLIND« 159,294,0) 
CALL SOUND 159,277,03 
GALL SOLINDE 259, 262.0) 
CALL SOUND 959, 220,0) 
CALL SOUND« 209, 294,93 
CALL SOLND« 209.254,0) 
CALL SOLND« 290,294,05 
CALL SOUNDS 280, 262,0) 
CALL SOUND 209,220,03 
CALL SOUND 258, 196,9) 
CALL SOLNDE 159,220,9) 
CALL SOUND 158,220,8) 
RETURN 

CALL SOLUND« 129, 220,0) 
FOR PAUSE=1 TO 290 

NEXT PAUSE 

CALL SOUND 190,247,0) 
CALL SOLNDE 100, 262,0) 
FOR PAUSE=1 TO 298 

NEXT PAUSE 

CALL SOLNDE 109, 196,0 
CALL SOUND 199, 220.9) 
FOR PAUSE=1 TO SO 

NEXT PAUSE 

CALL SOUND< 120, 247,0) 
CALL SOUNDE 209, 262,0% 
CALL SOLNDE 199,949,9) 
FALL SOLNDE 190,320,0> 
FOR PAUSE=1 TO 100 

NEXT PAUSE 

CALL SOUND 289, 229,9) 
CALL SOUND 299.262.@3 
CALL SOLND« 200.,442,0) 
FALL SOLUNDE 409, 409,0) 
FOR PALUSE=1 TO 58 

NEXT PAUSE 

CALL SOUND 199,339,9) 
CALL SOUND 199,234,0) 
CALL SOUND 199, 262,95 
TALL SOLNDE 109,330,0) 
CALL SOUND 188.330.95 
RETURN 

CALL, CLEAR 
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Memory 
für den ZX 81 16K 


Dieses Programm trainiert in hervorragendem Maße die Konzentrations- und 
Merkfähigkeit; im Zeitalter der totalen Reizüberflutung sicher ein wertvoller Beitrag. 


Nach dem Programmstart meldet 

der Computer mit "ICH RECHNE”, 
wobei er intern das DIM- aus 
dem CHRS-Set zusammenstrickt. mit 
welchem Sie in der nächsten halben 
rden sollen. 


Stunde gepeinigt w 
Nachdem Sie den $ 


hen auf dem Schirm auf, entweder 
in einem Block (Stufe 1). oder nach- 
einander (Stufe 2). Zeichen 


müssen Sie sich merken und in der 
richti Reihenfol ingeben (je 
nach Schwierigkeitsgr: im Block. 
oder nacheinander). 

War alles richti 

Zeichen zusammen mit dem nächsten 
und so weiter, bis Sie ma» 5 
Zeichen einzugeben haben. 

War die Eingabe falsch. so kann per 
Taste R die richtige Reihenfolge a 
rufen. werd obei der Computer 


Id berechnet. 
Taste W, 

erscheinen die letzten Zeichen noch 
einmal mit einem neuen Zeichen dazu 
und Ihnen werden 20 Punkte abge- 
zogen. Für jedes richtige Zeichen gibt 
es einen Punkt und je nach Höhe 
Punktzahl einen Textkommenta 
Die Führung durch das Programm ist 
so gut. daß kaum mehr dazu g 
werden braucht. 





SINCLAIR ZK-81 


SG 3 

SAVE "MEMORY" 

nn ERRENEERE HEHOR 
=3 

PF 


6 _ PRINT _"TRRINIERE DEIN GEDRE 
CHTNIS: DER TOMPUTER GIBT DIR _KU 
RZ EINE ZEI-CHENFOLGSE VOR,DEREN 
REIHENFOLGE ZU BEHALTEN UND RUF 
ABFRAGE HIN EINZUGEBEN IST.ES SI 
BR 2 SCHWIE-RIGKEITSCRADE WREHLS 

7 PRINT "BEI RICHTIGER EINGAB 
E_ KOMMT JE- WEILS 1 ZEICHEN DAZU 
‚BIS MAXIMALSB ZEICHEN.” 

8_PRINT "EINE TASTE DRUECKEN 
ZUM START: 


8 PRUSE re 

18 LET B= 

12 LET eaa“ IST RICHTIG." 

12 LET bS$=" IST FALSCH. " 

13 LET P=8 

15 CLS 

28 DIM RA$1598) 

21 PRINT AT 318,11;"s+ ICH RECH 


LET B=4 
FOR N=1 TO 58 
LET X=INT {RND=53) 
IF_X:28 THEN GCTO 32 
GET: DRERISENBE x 
NEXT 
45 PRINT AT_ 19,0; "ICH _BIN FERT 
IG.WENN DU STARTKLARBIST,DANN DR 
ÜECKE EINE BELIEBIGETASTE UND ES 
-„ GEHT -LOS. #z##r+r 2222" 
58 IF INKEY$="" THEN GOTO 58 
81 CLS 


52_PRINT "WREHLE: 1 ODER 2 (1= 
ENGE 2=PROFIF"' 


PUT S 
IF St1 OR S>2_ THEN PRINT "I 
CH „Snöte- DOCH: 1 ODER 2. 
5<1 OR_5>2 THEN GOTO 52 

Se BRINT RT 5,8; "ES KOMMEN ";BE 
;" ZEICHEN. 

57 FOR_N=2 TO 58 

58 NEXT N 


CLS 
68 FOR _N=1 TO EB 
65 IF 5=1 THEN PRINT AStiN}; 
668 IF S=1 THEN GOTO 82 
7® FOR _M=2_ TO 2 
‚2 IF S=2 THEN PRINT RT 18,11; 


NEXT 

76 PRINT. AT 12,11," “ 

88 NEXT N 

85 FOR_N=2 TO 38 

856 NEXT N 

87 CLS 

88 LET B$=As$ti1 TO _B} 

98 IF_S=2 THEN PRINT "ALLES GU 
T BEHALTEN Era 


91 IF S=2 THEN PRINT "GIS_JETZ 
DIE RICH-TIGE REI 
heNFoLge EIN: 


IF 5=1 HEN PRINT "GIB JETZ 
T_ IN EINEM BLOCK DIE RICHTIGE 
REIHENFOLGE BIN" 


POUOMM 
SNPLRBUD 


192 FOR N=1 TO 
138 In SL Ann Us$=B$ T 2: 
= = HEN PRINT 

T 18,02; 8$;C$ ’ 
tr IF S=1 AND U$s=R$ THEN-GOTO 

115 IF 5S=1 AND Us<>BS$ THEN PRIN 
r AT 18,8, U$; DE 

235 IF 5=1 AND Us<>B$ THEN G0OTO 

128 IF S=2 AND „YSSRSiN) THEN PR 
ZNT_AT 1@,@ ; Ug; CH 

125 IF 5=2 AND Us<>AsiN) THEN F 
RINT RT 18,2; UsS;DS 
ns 26 5=2 AND Ug<>ASiN} THEN G 


je} 
158 NExT N 
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ı151 LET P=P+B 

152 PRINT AT 21,8, "PUNKTE=";P 
iS5 LET B=B8+1 

156 FOR_N=8 TO Sa 


159 IF_B>18 THEN GOSUus Sea 


Ssa@ FOR_N=8 TO Sa 

31a NEXT N 

Sıl CLS 

3528 PRINT_"WENN DU DIE RICHTIGE 

REIHENFOLGEWISSEN WILLST,TIPPE 
TASTE R._ ZUMWEITERMACHEN DRUECKE 

W.ES WERDENDIR ALLERDINGS 2a PU 


NKTE REGE- ZOGEN. 
s25 IF INKEY$="" THEN GOTO 325 
ae IF INKEYS="W" THEN LET P=P- 


3527 IF_INKEYS$S="W" THEN GSOTO 45 
LS 


322 PRINT BS;" WAR DIE RICHTIGE 
REIHENFOLGE. 


338 FOR N=2 TO 202 

Sal NEXT N 

3352 

335 RUN 88 

588 GLS 

sie IF B>i@ AND B<15_THEN PRINT 
"DU BIST GUTER DURCHSCHNITT. 


528 IF B>15 AND B<28 THEN PRINT 
"DU BIST GANZ GUT." 

525 _ IF_5B>2@ AND B<25 THEN PRINT 
"AUSGEZEICHNET" 

s3a IF _B>25 AND B+ı3@ THEN PRINT 
"EIN TOLLES GEDRECHTNIS." 

548 IF_5>58 AND 5:48 THEN PRINT 
"ICH Baus NUR NOCH. 

545 _ IF >34 THEN PRINT "ABSOLUT 

E SÜPERLETSTUNG nenn 
5@ IF 5358 THEN PRINT "SPIELEN 


56@ IF B>5@ THEN STOP 
57& RETURN 


zt#+23z3r33 MEMORY xzsı+rr8+Fr 


TRAINIERE DEIN GEDAZECHTNIS: DER 
COMPUTER GIBT DIR KURZ EINE ZEI- 
ZSHENFOLGE VOR,DEREN REIHENFOLGE 
ZU BEHALTEN UND RUF ABFRAGE HIN 
EINZUGEBEN IST.ES SIND 2 SCHWIE- 
RIGKEITSGRADBE WREHLSAR. 

SEI RICHTIGER FZINGRBE_KOMMT JE- 
WEILS 1. ZEICHEN DRZU,BIS MAXIMAL 


EN 
EINE TASTE DRUECKEN ZUM START: 
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SINCLAIR ZX-SPECTRUM 


Ufo 


für den Spectrum 16K 


Dieses Programm 


nutzt jeden nur erdenklichen Programmiertrick aus, um 


Speicherplatz zu sparen. Das ganze Programm kostet nicht vielmehr als IK. 


Ziel des Spieles: 

Es ist ein Ufo zu treffen. welches mit 
sehr ruckartigen Zappelbewegungen 
im Screentop umhertaumelt. Die ei- 
gene Base wird mit den Tasten 5 und 8 
nach rechts und links gesteuert und mit 


Taste 0 kann eine Rakete gegen das Ufo 
gestartet werden. 
Wird es in der rechten Hälfte getroffen, 


von mehr als 80 Punkten ist miserabel. 
Sie werden merken, daß Sie nach dieser 
Definition, sehr häufig schwach spie- 


so explodiert es und die Punkte werden len. 
angezeigt. Je niedriger die Punktzahl, 
desto besser der Spieler. Ein Ergebnis 





FiQuUsren RUessen 
tsben iw GRAPHNIC- 
en werden: 
BE Sner RC; 

. 


nie 


2 BEM "UFG” 
@ PRINT "Rechts 





LET f=q4: L 
LET AO Z=S0N ters, x 
"LET k=INT (RND+RND! 
38 LET b=eb+ik AND x+xt-(NOT K 
RAND b) 
4a LET y=yrl {INKEY Se, SstI1z(yı293 
3 LINKEFS "Srstyya)lxı 





GET =d+Zz: LET F=r»z 

ı28 IF b>38 THEN LET b=INT iRND 
2091 +1 

138 FRINT Ar nor 3,6; INR_253” 4 
Be TEATLKBE INK 15" Ah #Ar an 
Mrz Lan a ugn ANb gWRAT xX-d,y+Z; 
A q 

142 IF_Q_RAND y=b RAND NOT d-x TH 
EN GO _ TO 210 

ı50 IF d=x THEN LET =NOT x 

168 IF J=x THEN LET =q 

ze IF NOT INKEY$="R" TREN GDT 

ı15&G8 LET q=56N x: LET d=NOT x 

198 BEEP_.B53,b 

ZUR GO TO 22 
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a 1,44: BEEP „7,202: BEEP 


215 PRINT _AT_NOT x,b5" N ";f: 
PAUSE 8: PAUSE _® 

238 cLS : GO TO 1a 

San PRINT AT 19,5; INK 1, FLASH 

1;"Bitte warten!!!", FLASH © 
Sie FOR s=1ı TO 5: READ us: FOR 
{=8 TO 7: READ e: FÜKE USR uSrt, 
@: NEXT t: NEXT s 

520 DATA "4" ,8,9,15,127,255,127 
„gge_ogra Le" ‚8,102,240,254,255, 
„ga sata Le" ‚24,60,1593,169,255, 
ss DATA "2",24,608,126,24,24,50 
"560 DATA "N" ‚133,66,36,154,89,53 
de Fann ı 79 2 
= 

Sal BEEP „B,iö: BEEF_.2,12: BEE 
P_.2,10: PAUSE io: BEER 13,7: 
sa2’ PAlsE 38: BEEP_.2,1@: BEEP 
„2.12; BEEP „2,18: PRUSE ie: BEE 


Press 2: 

655° PAUSE au BEEP_.3,5: EEP u 
5,3: BEE 2,15: BEER 2, 18: BEE 
P_.4,12: BEEP „5,10: 

8684 NEXT_n 

ses PRUSE 28: 38 


„S,ı2: ROSZE 


Sr =. 
P_ „3,5: _BEEP „S,2: BEEF 
a2 RETURN 


-B, 
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FE FUN: 


CREATING FANTASIES FOR 
DRAGON AND NOW 














KRAZY KONG alell.3, CENTIPEDE 

All machine code version of the _Can you help Fergy and his All machine code -very fast- 

popular arcade game. friends get across the 4 lane Superb graphics "Better than the 

This program has all the features highway and back to the lilly original. 

of the original and is every bit pond? ; f0):11091:174 6-95 
e04 Includes Crocodiles, Logs, BBCAORB 6-95 





as 
3 different screens makeit ____ varying traffic speed etc. 
ORIC 48K 





MAKERS 


ZX81, SPECTRUM, 
ORIC AND BBC 





DEEP SPACE 


Alarms begin humming loudly as 
io ts flash at een 
rt control con 
eis -CRUISER. 
ithin seconds a huge ball of 
destruction outside 





LIGHTCYCLEE ATTACK one of he wars spoce sorms 


Allthe speed and excitement Attack isa super fast,allmachine Your 7 defence 15 your skill 
you could want, very addictive. [defe Fe (de1e 1577 { with the laser cannon. 
Koce and block the computer or You are the Chief Security We DARE you to take control 
another player. Oo on the prison Pre planet ee Ag 
E Rl' where = ss you can awa 
SPECTRUM 16K 48K 5-95 capt I ae lo be aueh. 


SPECTRUM 48K 5:95 











NULEONIO) bringt Ihnen PSS-Software ins Haus 
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Drakulas Diamanten 
für den 16K ZX 81 


Bei Interpol ist die Hölle los: Die wertvollen Diamanten der Gattin des Milliardärs 
N.J. Sirmel, sind vor drei Tagen verschwunden. 

Man fand Frau Sirmel am Montagmorgen sowohl ihres Blutes als auch ihres 
Schmuckes beraubt, tot auf dem kniehohen Perser liegen, das Fenster auf, den Täter 
fort. Der Verdacht fiel sofort auf den jungen Grafen D., aus folgenden drei Gründen: 


1. Er hatte weder ein Alibi noch eine 
Erklärung für sein sattes Aussehen. 

2. Er hatte noch Stunden später ent- 
setzlichen Mundgeruch. 

3. Da er vor einigen Jahren den 
gräflichen Landsitz in Transsilvanien 
erbte (sein Vater wurde tragischer- 
weise von einem sogen. Prof. Popov 
ermordet). mußte er eine horrende 
Erbschaftssteuer zahlen und stecktnun 
über beide Beißzähne in Schulden. 
Das Schloß ist verpfändet. der Graf 
selbst arbeitet als Nachtwächter, Pro- 
rektor einer Mittelschule und als 
Programmierer rund um die Uhr. 


Heute wohnt der Grafin einer beschei- 
denen 4 1/2-Zimmerwohnung in einem 
kleinbürgerlichen Villenviertel. 

Da vermutet wird. daß die Beute dort 
versteckt ist. beauftragt man Dich sie zu 
suchen (und sie zu durchsuchen). Du 
hast nur zwei Möglichkeiten: Der beste 
lebende Detektiv zu bleiben oder der 5.- 
beste Tote zu werden. Die anderen 4 
waren schon drin: Friede ihrer Asche. 
Du trittst in das Wohnzimmer ein, die 
schwere eiserne Tür fällt hinter Dir zu. 
Zu Deiner Beruhigung schluckst Du 
Valium. 

Jetzt kann die Suche beginnen. 








DIE RÄUME 


Der Wohnraum 

Gleich beim Eintritt fällt das seltsame 
Bild an der gegenüberliegenden Wand 
und der geblümte Vorhang links auf. 
die beide in grauenhaften Farben 
gehalten sind. Ein kalter. zügiger 
Luftstrom aus dem zwar geöffneten, 
aber durch ein Moskitonetz gesicher- 
ten Fenster. Neben der Tür mit dem 
runden Griffistein Kasten in die Wand 
eingelassen. Auf dem weichen Teppich 
steht ein niedriges Tischchen. über dem 
ein geschmackvoller Leuchter prunkt. 
In den Keller führt eine Falltür. 





Der Keller 

Ein feuchter, düsterer und schmutziger 
Raum. Ein Moderduft schwebt in der 
staubigen Luft (wahrscheinlich von 
dem offenen Sarg am Boden aus- 
gehend). An der Wand hängt ein roh 
gezimmertes Regal mit seltsamen Po- 
fel. Daneben ist der Sicherungsschalter 
angebracht, mit dem der Strom des 
Hauses an und ausgeschalter wird 
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Sonst befinden sich nur noch 4 
Spinnweben und | Feuerwehrleiter im 
Raum. 


Das WC 
Ein fürchterlicher Gestank empfängt 
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SINCLAIR ZX-81 


einen. von der schlechten Spülung des 
WC's und der ebenso schlechten 
Verdauung des Grafen zeugend. (Altes 
Geschlecht. altes Gedärm). Über dem 
WC hängt ein altersschwacher Ven- 
wlatır der durch einen Knopf in 





Betrieb gesetzt wird. Links der Toilette 
befindet sich ein marmornes Wasch- 
becken, über dem ein halbblinder 
Spiegel sein klägliches Dasein fristet. 
Links an der Wand hängt ein weiches 
Handtuch mit Monogramm. 


Die Küche 

Eine stinknormale Versandhausküche 
(Ausführung "Fetter Kleinbürger”): 
Ein Kasten mit Herd und Ausguß, ein 
Kühlschrank und eine Bank. Nach O 
führt eine Tür. Der Raum ist blitz- 
sauber (Drakula ißt meistens aus- 
wärts). Ein leichter Gasgeruch stört 
empfindliche Nasen. 





Das Turmzimmer 

Ein Zeichen nostalgischer Gefühle des 
Bewohners: Ein hoher, kühler, runder 
Raum. dessen Mauer aus groben 
Steinen locker gefügt ist. Ein Stein ist 
ziemlich abgegriffen und steht etwas 
vor. Ein winziges Fenster wirft ein 
düsteres Licht über eine verschlossene 
Kiste. 





Eingabe 

Dieses Adventure ist ein illustriertes 
Textadventure. Die Eingabe erfolgt in 
zwei Worten: Substantiv und Verb, die 
folgendermasen eingegeben werden: 
Subst. Leerzeichen Verb 

Z.B.: "Fenster sehen”. Das kann aber 
auch auf "Fen seh” verkürzt werden. 
Fragt das Programm nach einem 
Gegenstand. so muß man den voll- 
ständigen Namen desselben eingeben. 
Wenn man einen Ausgang benutzen 
will. muß man nur den Buchstaben der 
gewünschten Richtung eingeben. Bei 
jedem Raum ist im Rücken Süd, links 
West. usw. Zum Rauf- und Runter- 
steigen kann man oben und unten be- 
nutzen. Bei einer "No Geit"- Meldung 
hatte man keinen Erfolg mit der 
Richtung. 










Übrigens: 

Im Haus sind fünf Tips versteckt. (auf 
Zetteln. eingeritzt usw.). Keiner ist 
wertlos. Hier noch ein sechster: 

"Ist das Holz erst abgelegt. ist der stink 
wie weggefegt”. 


P.S. Man starte mit GOTO 300 N/L 





Zum Listing 

Das Listing ist sehr lang (2 m) und füllt 
das 16K Ram komplett aus. Aus diesem 
Grund sollte auf keinen Fall etwas 
hinzugefügt, geändert oder wegge- 
lassen werden: weder die Graphiken, 
noch die manchmal etwas lakonischen 
Antworten, noch die Zeilennummern. 
Am Anfang jeden Raumes stehen zwei 
längere Printbefehle, die weiterhin so 
lang bleiben sollten. 

Zwei Sachen sollten verändert werden: 
Zeile 600 gelöscht 

Zeile 1300 mit IFNOT A(1) ANDX$= 
ergänzt werden. 
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SBREM ERREIEIEISS 27 ©.SEIBT 
LET M=M+5 

LET M$=5TR$ M 

IF LEN M$=1 THEM 


nr® 


“E 
= 


LET H$=sH%t TO_52 

IF MıS® THEM SOT 

LET rn 

LET B ı 

der H5S=5STR$ H+".00" 
LEN H$=4 THER LET 


H=18 THEN LET D=1 
$ THEN GITO 59 
2& THEN LET D=2 
4) =2 THEN LET D=8 
24 THEN GOSUB 50 
I D_THEN GOSUB 78 
PRINT AT 1,25; H$; TAB 25,“ 


RETURN 
Ir Mi>8 THEN 
ee gt 1,2 


BORN 


+ 
:E 


"CH I POTO FO TO TO TO Fit pa ha ie I et 


u 


RETURN 


ON SONIRURN 


"52 PRINT AT 18,8; "AHHH,„EIN GEI 
5T.DU MACHST_VOR ANGST FAST I 
HM DIE HOSE.DOCH WO- HIT VERTEIDI 
GST DU DICH" 

51 INPUT E%$ 

2, 2E „mis: =2 AND Es=-"STAUBSAUG 
Em 

55 


THEN GOSUB 98 
AT 4,24; "ES IST "SAT 


NE 
„IF D=1 THEN PRINT AT 4,27; 


RETURN 
LET Pr, IMUJEH 


PRINT AT 18,8, AS; AT 16.0," > 


BF 

THEN GST 
THEN STO 
THEN GOT 


& asus Er 

PRINT AT 3,93; " = 
PRINT AT 5.3; m 
IF INKErY$="2" THEN GOTO 3E2 
IF INKEY$="1" THEN GOTO R 


ST 1,325; 


H$ 
SE 19, 8; "SRUND: ";A$; " 


108 


AT A, 
"IREGESTORBEN 
PR or 108,5; " 


PRUSE 9a 


17: 'E8" 


) RIDAIAMNSNAN-ES 





2808 Ir_ INKEY$="N" THEN STOP 


Eng = 
‚AT 12,6; 


G3= 
PRUSE soo’ 
GoTG_1eoa 
IF LEN E$>:352 OR E&="" THEM 
did 


IF LEN E$=1 EN To 445 
" THEN GOTO 45& 
THEN GOTO 28& 


LET As="NO BRETT 
RETURH 
LET YS=E$( TO I)+" 
LET Z$=E$(I+1 TO 3+" u 
LET X$=Y$( TO S)+Z$( TO 3) 
RETURN 
IE Mt AND # 
BLU") Then” "EOSuB = 
($="FENSEH" THEN LET A%# 
"ES REGNET IHMMMER NOCH.SPIEL LI 
WEITER IDIOTISCHE ADUENTUR 


ar an >" KERANZ' 


imME-' 


ÜUR RAtla)az>ı1 


AND Z4t TO_3) ="SEH 
"NICHTS BESÖNDERES 


THEN LET A$="GEHT 


$= 
THEN LET A%$ 


547 IF At="" 
NICHT" 

S55 RETURN 
559 FOR I=15 TO 2i 
555 PRINT AT I,8;0% 
S792 NEXT I 

575 PRINT AT 18,8; 
588 RETURN 

1900 


IF At4):i THEN LET At4)=0 
LET As=U HALLO..." +6%& 


TAT 10,1 
THE 15, en 


IF Ati: THEN PRINT AT ıa,12 
IF_NOT_Ai2) THEN GOTO 1863 
FOR I=5_ TO ae. 

a 5 


x 9. SEIMT AT T,85 

1562 NEXT I 

1853 IF_At4)».5S THEN PRINT AT i, 
11;" ";TAB 11; "a"; TAB 11; "m" 





PRINT AT ı2 
THEH PRINT AT 5.11; 
;TAB 22: BE" 
IF MOT R{7}I AMD IMOT riss!) 


THEN LET Y$="BE& 


PRINT _AT 

NEXT I 

RETURN 

IF Dx<>2 THEN GOSUE R+58 
GO5SUB_R+72D 

IF At33} THEN GOTO R 
PRINT AT 18,20; R$ 
LET A$=" 

INPUT ES 

GOSUB 153 

PRINT AT 15,8; ' 


EN COSUB_S60 
S}='"SEH” AND D=2 


INS SAMT 
URU GENNBDJN 


U" THEN_GOTO_1268 
THEN GOTO 28908 
PRINT AT _18,86; "WOMIT HEBT HM 
DIE FRLLTUER?” 
1253 INPUT E$ 
1254 IF E$="HRKEN” AND A(34) 
N SOTO 29009 
1255 GUSUB 550 
1268 IF Ey<>"W" 
1261 IF _ NOT A(3} THEN LET A$="SE 
HE _ NICHTS" 
ı262 IF At3} _THEN GOTO 400 
1269 IF Eg="5" THEN LET Free Te) 


ı12T7@ IF Es<>"N" THEN _GOTO_11553 
1271 IF _Al2) THEN GOCTO_ 5008 
ı1272 PRINT AT 158,8; "WIE SGLL ICH 
GEFFNEHNT" 
1273 INPUT E$ 

GOSuUB 402 

IT X#<>"GRIDRE" 


LET At2)=1 
GUTO Se9a8 
GOTO 11553 
IF X$:>"WORZIE" THEN GOTU 1 


LET AS$ 

LET At 
15099 IF X$= 
"HR UA,ETUR 
13108 IF xX%: 
H_GOTO_1328 


THE 


THEN GOTO 1269 


THEN GOTO i 


nf) USW NM 


H THEN LET Ag= 
“ ""ÖR Als) THE 


3 
5 
> 


SORRY..EIN SCHLUÜ 
A>"SCHNEH" THEN GOFO 1 


ETNEH“ THEN GOTO 1 
23 
.- ae. ‚EINDEST > 
Sa IF xX%#i HTISSTE" "THEN GoTo ı 
1341 IF Ril} THEN GOTO 1344 








1342 LET A$=" 
1343 

S44 

1345 

issa IF x 
„THEN SoTo 


RÜTSCHTUE 
OR NOT Atd) 


> or At77 THE 
N soro 1369 


1362 PRINT _ AT 18,80; "ANGENAGELT.W 
SHIT ENTFERHEN?'" 

1363 INPUT E$ 

1364 IF CES="ZANGE" AND A152) 
N LET R(7)3=2 

1365 _IF At7:!=2 THEN 
SOR ENTDECKT" 

1365 GOSUB 558 

1563 IF NOT Ail! AND x$="TISSEH" 
THEN LET A& ZETIEE 

1378 IF NOT s(7) OR KS:>"TREOBEF" 


PRINT ar 18,0; "CODE =7" 
INPUT E$ 
IF E$<>"5873" THEN GOTO 1755 


THE 
LET A$="TRES 


EIHM BRETT" 


Ir 
OR XS: 3"BRENEH'" 


MOIWIH 
vn 


u 


Orr" THEN GOTO 1 


PREAKFREOHERU 
En EIATETOTATRTRER TO TRTR] 
HHLIAOVBDNWIMUN 


m 
4 
x 
+ 
AD 


UBSAUGER" 
>"STANEHR" 


NSOIH D 
je} 
2 


LVEMSNM BMARMBSUR 


[ey# 


LET Atsi=i 


IF D=2 TH 
FRınT EN GOTCG ee 


THEN PRINT AT 13,1 
THEN PRINT AT 4,6; 


THEN PRINT AT E,6; 
>" “: 
THEN PRINT AT 13,5 


IF At15) THEN PRINT AT 8,13 


50° 8 IF NOT AR{t15) TH 

3.13; "ERBE EN PRINT AT 
RETURN 
IF E%$="0" THEN GOTO 1808 
GOTO 1198 
IF X$<>"ZETNEH" THEN GOTO 2 


LET At128)=1 


et ZETTEL MIT DER 
IF X4="BOD5SEH“ THEN LET A$= 
"ZEITEL” 
ger IF x$<>"KNODRU" THEN GOTO 2 
32 
2311 LET A(15)3=NOT A(15) 





2 LET A$="KLICK" 
XEi>"REGSEH" THEN GOTO 2 


THEN LET A$="4 
THEN LET Assf$ 
IF ER... THEN G0OTO 2 


LET At121=1 
LET 9$= 


o$ 
IF X$<:>"BLUNENH" THEN GOTO 


OR X4<>"BLUDER" 
;UWOMITT" 

be on NOT ALL 

PRINT AT 18,2; "UND ALS HaHım 


IHPUT E$ 
SosUB 558 
IF ES {ZT LANNKEULE" OR NOT Aa 


OR X$<>"BLUTRI'" 
THEN GOTO 
361 LET Rti 
82 LET A$= "WWERG,ABER DA IST J 
A_ EIN ED RICH“ 
$<{>"DIENEH" OR NOT RAti4 
THEN _SOTO 2338 
2371 LET A$=0%$ 
23572 LET AT3SI=1 
23585@ IF NOT Ati) AND_X ="SARSEH 
" THEN LET A$="B KREUZ 
2398 _ IF ASt "KRENEH" OR At19) TH 
EN RETURN 
391 LET At1S53=1 


2383 PRINT AT 18,0; "SCH 


T DABEI IN DEN BES SEFALI 


STAUB IST HOCHGIF- TI 
NUETZT DU DIEAT" 
2393 GOSUB 108 
2594 INPUT E$ 
23935 GOSUB 56504 
235956 IF _E$="HANDTUCH" AND R1{17) 
THEN GOTO 2339 
82397 LET_A$="""VERSTAUBT""" 
23933 GSOTO 258 
2399 PRINT "SUT,ICH SEHE & SCHRA 
NJBEN.WOMIT BEFREIST DU DICH?“ 
2498 INPUT Es 
2481 IF_E$="SCHRAUBENZIEHER" AND 
A308) THEN SOTO 2Za28 
2402 GOSUB 568 
een LET A$="“"ERSTICKT" 
GOTT 250 
RETURN 
=2 THEN GCTÜ 3210 


15) 


THEN LET Ft18)=1 
OR R(13) AND Acı5) 


RüRN Rn He 
DEIDEODUN NL) 


AND AtıSı THEN PRI 








34@1 PRINT AT 18,9;0$;" 
Eee i 





a ee To alısı T 
3853 IF NOT { 
0 Zu 


THEN PRINT AT I,1i; 


soss Ir Al23} AND I>6 THEN PRIMT 


AT 1,135; 
5959 NEAT I 
59878 RETURN 
3258 IF E$="5" THEN GOTO 1800 


3255 G0OTO 1158 , 
3388 IF NOT Ai34) AND X$="UC SEH 


“_THEN LET A$="HAKEN" 
En IF XS<>"HAKNEH" THEN GOTO 3 


1 
NNEH'" THEN GOTG 5 


THEN LET A$= 
LIEGT DER SCHLUESSEL" 


IF X$<>"KNÜODRU" THEN GOTO 3 
IF_NOT AI1S}I THEN GOTO 3354 
LET 5=8 
LET A(19}=NOT R(19) 
LET A$="KLICK" 
NOT Rti19) Alb NOT 5118} 
LET 5=1 
IF X%$<>"WC STE" THEN GOTO 3 
IF NOT A{18} THEN GOTO 3365 
GOTO 3371 
LET Ay= „SEE 
GSoTo 
LER abe GEFALLEN 
SCTOo 258 
TB IF X$<>"BRESTE" OR MOT Atis 
y THEN GSUTO 3380 
3571 ar A121 AND Rt15) THEN GOT 


OR X$<>"BREABL“ 


IF atis1ıc>2 BESSER.) yen- 
RETURN 
. . EREERE} 


Sr +R(15I +9 (1 


HEN LET 5=5+1 

HEN PRINT AT 9,26; " 
BSTINKT 
EN PRINT AT 


RETURN 


=£ THEN 


A ZUAOD 
»HOR Bm 
Prize r 


IF_D= 2 THEN GuTO 4995 





IF At25}3 THEN PRINT AT 19,1 


IF NOT Are THEN GOTO 4865 
FÜR I=? ii 


PRINT Ar, 


THEN ERIHT, AT 
";TaB as: 2 3 


Zu 3 Bo“ 


GOTG 1006 
GOTO_1108 
THEN GOTO 5904 
PRINT Ar 18,8; "WOMIT OEFFNE 


INPUT E$ 

IF E$="SCHLUESSEL" 
HEH GOTI saad 

GOSUuUs 558 

GOTO .1192 

xS BANSEH'" THEN LET Aä= 

TIZ:""TRINK Bien" " 
a IF X$t>"KUEDER" THEN GOTO 4 


1 LET At281 =1 

3 LET RA$=08 

a IF A{22) AND X8="KUESEH- FIN 
OT A(26) THEN LET as= "BEREIRISE 
TIEFGEFRORENE" 2 
IF X$4>"LAHMNEH" OR NOT RI28 
HEN _GOTO 4340 


=1 
IF X$i>"KASODEF" THEN GOTO 4 


LET A$="ON,ROHRE" 
IF_NOT Ai251 THEN LET As$=h$ 
HD ZUENDHOELZER" 
LET Aat24)=1 
>" KASSCH" THEN GOTO 4 


AND ALS) 


BSUANP BONNON 


Er am nad 
H 
A: 


ORRPUR :RERIPRZRPFRB 
ÜVORDZUMMMNNIIDN 


H 


IM) 
BO TZuL an 


fe} 
WR 
mm 
4 
DD 
Be 
10 
NO 
l 


Habaan T0unauu 
FNNNBNF FROIRUN 
SDR BUCHFr BMW 


AMD NOT ARlZ3 
RL" 
THEN GOTO 4 


en 
m 


2 
3 
sr 
4 
A 
3 
+ 
4 
+ 
4 
4 
3 
4 
4 
4 
H 
4, 


3 
oO 


vum “DD: 


NEH" GR NOT Alzd 


OA X 


4 
4381 LET A(25) 
4332 LET A$=0O 
azaad RETURN 


4F7aoRu IF Rtlai=2 AND Ri24) THEN GO 
TO 47182 


47 05 RETURN 
Se 


SeO® IF D-2 THEN zoTro 
Sae1 UL 


BON“ Zu 
ESM RO DEU 


5 
S5aaS LET A$="BRAR,"4G 
Sa27 LET R-5308 = 
5883 LET Rı2l)=ı 





59239 LET AL33I=8 

S2198 GCSUB 29 

sasa GaOTOo 11a@ 

5831 LET Rt33)=8 

sa5®, IF ALt25) THEN PRINT AT 


Sası IF NOT _A(S1i THEN GOTO 

5052 PRINT AT 3. 8 Eu Wi 

s5a53 FOR I=i 

5@S4 PRINT TAB s; 35 

5955 NEXT I 

59856 PRINT AT 10,8," -";AT 4,3;'B 
; TAB 9: "WB"; TAB 8" 

sa78 IF NOT nt2s) THEN RETURN 

5973, PRINT_AT 2u12, TAB_i 

7; za® T ";TAB 17; 


AB ga: 
sa74 pP Ant AT 9,16; ",TAB 
a 
16; 


TREE 
Ss975 IF gen PRINT AT 4,19 


IF E$="5" THEN GOTO 4600 


scrTra 1198 

IF XS: "ZETNEH" THEN GOTO 5 
LET At23 1 

LET A$=' HINTER_MOBERNER K 
VERBIRST SICH OFT WERTVOLLE 


>23 IF XSH:H"STEZIE" OR At293 TH 
EN GOTQ_ 5322 

ei PRINT AT 18,0, "WOMIT LOCKER 
s312 INPUT E%$ 

5513 GOSUB 560 

5314 IF E$St>"MESSER”" OR NOT Al23 
} THEN RETURN 

5315 LET A(291 =1 

Ders LET RAS -'"DEBEE . .UM.EINE HOEH 


552a IF NOT A(tZ2) AND _X$="HOESEH 
- AND A(291 THEN LET A$="SCHRAUB 
ENZIEHER" 

53521 IF X$="BOB5SEH" THEN LET Aä= 
NZETTELT 

5339 IF X$:>"SCHNEH" OR NOT AtZ2S 
I THEN GOTO 5348 

5551 LET A$=0% 

5332 LET A392} =1 

5340 IF X$<>"KISOEF" OR A{51) TH 
EN GOTO 53562 

5341 PRINT AT 18,8; "VERSCHLOSSEH 
„WOMIT? 

53542 INPUT E%$ 

53543 GOSUB 568 

5345_IF E$<>"DIETRICH" OR NOT fit 
32) THEN RETURN 

5346 LET A(t31}=1 

5347 GOSUB 59582 

5343 PRINT _AT 2, 


53558 PRINT _AT 18,8; "AU,VEIR Ei 
SE SCHLIEF IN DER KISTE.NUN WI 
ILL ER DICH SEISSEN. Hella, uns TU 


EZEI" AND At15) TH 


SSSS LET n$- En 

5356 G0T0 252 

5358 IF NOT Atz2ı AND X$SCKISSEH 

"AND At31) THEN LET As= "BEE 
{> " ZANNEH" OR NOT As 





Lift 


für den ZX 81 16K 


Ohne Farbe und Geräusche gilt für 
dieses Programm das gleiche wie für 
das SPECTRUM-Programm Lift. Ein 
weiterer Unterschied: Hier werden 


ı 23070 _ 4 
2 CLEAR 
.. L; IFH" 


cO=8 
B$= ar SE TER 
98 FRINT AT 5,24; " Be 
i828 FOR N=2 an @ı 
118 PRINT_AT N,4;"P" 


2290 IF N>S3 THER PRINT AT N,12;'P 


an Erle N>4 AND N<15 THEN PRINT 
. 
140 ze N 15 OR RES HEN PRINT 
AT_N,S; SISENSEHS: BER 
158 NEx® N 
151 PRINT PT 18,9 SE 
1689 FOR N=28_ TO a’ STEP - 
155 IF_N>18 AND INKEYE="8" AND 
Ri_=@ THEN GOSUB 253308 
=1 THEN PRINT AT N-4,6; 
inE Ash = ";AT N-23,5" 


— 
PRINT AT N,5; "SAT N+1,5 
IF N=8 THEN PRINT AT 3,6;" 
IF N<4 AND P=1 THEN GOTO 91 


205_IF N<>5 AND P=1 AND INKEYS= 
"5" THEN GOTO 90908 
218 IF N=5 AND P=1 AND INKEYS$=" 
5" DEN GOSUB 235008 
228 IF P=1 THEN GOTO 269 

IF INKEY$="5" THEN GOSUB 11 


NEXT _N 

LET P=8 

GOTO_16®8 

FOR_Z=25 TO 5 STEP_-ı 

IF Z=5 AND N<13 THEN GOTO 9 


PRINT AT 16,2; 0 


SATTE 
"AT 18,2; Wi“ 3 Br 


3AT 19,2," 


SAUBNURUNEN 
AUSM ENMmm 
Saununuunmm 


ERBE EERERNAn Man mM 
nARUMEMEARHEANMEaNN 


keine Tonbandgeräte zusammenge- 
setzt, sondern das Wort COMPUTER. 
Ansonsten gilt gleiches für die Be- 
dienung und die Tricks für Anfänger, 





wie beim Programm für den SPEC- 
TRUM beschrieben. 


PUNKTE=12 


BESTERTER 
nun nnamm 
nun... 
anu.nunun.n 


RAUREUNEHNENEKREUMER 
KRUERSHRUSmRnaSuumnM 


as PL=1 AND Z=28 THEN GOSUR 
1116 IF PL=1 AND Z=28 THEN GOSUB 
=008 


NEXT Z 

IE_N>19 THEN LET P=1 

LET PL=® 

RETURN 

LET P=® 

FOR_Z=5 TO 25 

IF Z=11 AND CO=1 THEN GOSUB 


2335 IF INKEYS$<>"6" THEN RETURN 
24808 FOR Z=5_ TO 28 

2418 PRINT, AT Z,325; ee ; AT 

“at Zz-2,25;" äö e 

at z-i, 25;" 0 


PRINT AT_2,13; RA$ 
FOR N=2_ TO & 
PRINT AT N,135;RA$;AT N-1,13; 


AND AScH"fP" THE 
7@15 gie Ag= THEN LET PUNKTE=P 


UNKT 
70s0 IF A$=B$(R) AND _ ARyc<c>“f" THE 
N LET _PUNKTE=PUNKTE +28 


za22 IF A$=B$(R} THEN LET B$(Rl= 


70580 IF AS<>BS(iR) AND Asc>"P" TH 
EN LET PUNKTE=PUNKTE-i 

F@asßB NEXT R 

7885 PRINT AT 8,18; "PUNKTE=";AT 
8,17; ";AT_B,17; PUNKTE 

7a32’ FOR I=8 TO S2 





NEXT I 


IF BEA THEN GOTO 


RETURN 


FOR M=28 TO_5 5TER - 
‚PRINT AT H,25; re ; TAB 


NEXT H 
RETURN 
FOR I=-a ra a 
LET X=INT 


FOR_ J=1 TO 48 
NEXT 4 
IF INKEY$="A" 


$ 
8518 IF INKEYS="A" 
8528 NEXT I 
85908 RETURN 
sa08, „PRINT_AT N-S5, S;' 


3 ie 3 The 
B_S; "ud" 
29392 FOR_N=® TO 288 
=@85 NEXT N 
39065 CLS 
818 PRINT 
HT AUSSTEI- 


{RND +65) 
IF _xX238_THEN SOTO 
PRINT AT 15,19; ">" 


THEN LET A$=C 
HRS_X 

8517 PRINT AT 21,11 "BEGEBSIER" ; PR 
THEN RETURN 


"DU DURFTEST_HIER NIC 
GEN UND BIST RBGESTU 


ERZT...." 


8501 
;sCHR& X; " 


FT 


SToo..'" 
9238 STOP 


3991 CLS 
"TAB 5; 
;TA 


oe “. 
E 


UT. 
RCHGANG. 
EN." 


ss11 CLS 





Lift 


für den Spectrum 16K 


28208 STOP 
sıo8a FOR re TO 100 


9128 PRINT 

TIEGEN UND MUSST MIT SCHAEDELBR 

SISBRUCH IN DIE KLINIK." 

2138 STOP 

83298 PRINT RAT 36,8 Fi ";TAB 
TAB 


H 
Are) 5: 


228 PRINT 
MOMENT EIN- 


9905 PRINT 


"DU BIST NICHT AUSGES 


;T 
en "TREE 55" 
oO 200 


"DU BIST IM FALSCHEN 
GESTIEGEN UND DER LI 


VERLETZTEDICH SO,DASS DU INS 
HOSPITAL GE-BRACHT WERDEN MUSSTE 


929928 PRUSE 188 


"DAS WAR SCHON GANZ G 
AUF ZUM NRAECHSTEN DU 
MIT ";PUNKTE; " PUNKT 


S312 PAUSE 158 
9315 GOTo 9 


Nachdem das Programm eingetippt wurde. muß die kleine MC-Routine mit GO TO 
5050 kurz getestet werden. Ist das Geräusch der arbeitenden Maschinen zu hören, also 
alles richtig eingetippt worden, dann können die Zeilen 5000 bis 5060 ersatzlos 


gelöscht werden. 


Die Zeilen 3.11.170.1110.2310.9010 bis 
9180.9300. 9400. 9608 bis 9676 enthalten 
die User defined Graphics. d.h. die in 
diesen Zeilen stehenden Großbuch- 
staben müssen im Graphic-Modus 
eingegeben werden, sonst laufen später 


nur Anhäufungen von Buchstaben auf 


dem Bild herum und kein Männchen. 
Wenn bisher alles in Ordnung ist. dann 
kann das Programm mit GO TO 9990 
gesaved werden. 

Denken Sie daran. daß zweimal ge- 
saved wird: Einmal das Hauptpro- 
gramm und die Bytes der MC-Routine. 
Der SPECTRUM fordert Sie nach dem 
Saven des Hauptprogrammes auf. eine 
Taste zu drükken. Tun Sie das sofort. 
damit kein unnötiger Zwischenraum 
auf der Cassette entsteht. 

Beim Load-Vorgang brauchen Sie nur 
die Cassette laufen zu lassen: das 
Programm startet sich selbst. 


Spielbeschreibung: 

Sie haben die Aufgabe Tonbandgeräte 
zusammenzubauen, die aus jeweils 9 
Teilen bestehen. Die Teile erhalten Sie 
unten in der Materialausgabe. an der 
das Männchen automatisch stehen- 
bleibt. 

Die erste Fahrt mitdem Lift istin jedem 
Durchgang eine Leerfahrt zur In- 
spektion der Anlage. Hierbei können 





Sie kein Teil mitnehmen. 

Gesteuert wird die Laufrichtung des 
Männchens mit den Cursor-Steuer- 
tasten 5. 6 und 8. 

Wenn Sie die Taste 5 drücken und der 
linke Aufzug in der richtigen Position 
zum Einsteigen bereitsteht. läuft das 
Männchen los. steigt ein und fährt 
nach oben. Dort müssen Sie im rechten 
Moment mit Taste 8 aussteigen. laufen 
automatisch zum rechten Lift und 
fahren mit diesem per Taste 6 nach 
unten. Hier dürfen Sie nur dann 
aussteigen. wenn der linke Lift ein- 
stiegsbereit dasteht. 

Jetzt bleibt das Männchen an der 
Materialausgabe stehen. an der in 
zufallsbedingter Reihenfolge die Bau- 
teile für das Gerät auftauchen. Zur 
Annahme eines Teiles drücken Sie die 
entsprechende Zifferntaste, die mit der 
Teile-Nummer identisch ist. Hatten Sie 
das Teil bereits eingebaut. so erhalten 
Sie nur ein schwarzes Quadrat und 
Punktabzug. nachdem Sie es oben 
abgeladen haben. 

Haben Sie ein Teil angenommen. fährt 
der rechte Lift wieder nach oben und 
Sie laufen automatisch in den linken 
Lift. müssen oben wieder zur rechten 
Zeit aussteigen und bleiben diesmal 
automatisch an der Eingabe stehen. 
das Teil fällt in den Schlitz. wird mit 





infernalischem Geräusch verarbeitet, 
an die richtige Stelle gesetzt und Sie 
laufen. wieder automatisch. in den 
rechten Lift. den Sie mit dem Abwärts- 
pfeil nach unten bewegen. 

Viele Bewegungsabläufe sind schon 
automatisiert. weil der normale Ablauf 
Sie schon ein gehöriges Maß an 
Konzentration und Geschicklichkeit 
kostet. Es ist gar nicht so einfach. mehr 
als 3 Geräte hintereinander zusam- 
menzubauen. Dabei ist der rechte 
Aufzug völlig harmlos. Nur beim 
linken können Sie sich mit dem Ein- 
und Aussteigen total verhaspeln. Das 
kostet jedesmal sämtliche Punkte und 
Sie müssen wieder von vorn beginnen. 
Damit Sie es nicht gar so schwer haben, 
fahren die Aufzüge mit Musikbe- 
gleitung. Achten Sie beim Ein- oder 
Aussteigen nur auf den richtigen Ton. 
Zum Ein- oder Aussteigen muß der Lift 
mit dem Fußboden jeweils eine Ebene 
bilden. Am unteren Einsteigepunkt 
dürfen Sie jedoch auch dann noch 
weitermachen, wenn Sie den Lift Imal 
um eine Position über dem Fußboden 
verpaßt haben: Drücken Sie. wenn er 
wieder an der richtigen Stelle steht, 
einfach noch einmal die Taste 5. 
Noch zwei Tricks für Anfänger: Sobald 
sich das Bild aufbaut, halten Sie Taste 5 
fest, bis der Monteur eingestiegen ist 





Sie bitte noch 
Programm ein: 


und nach dem Aussteigen im oberen 
Bereich, halten Sie die Taste 6 fest: Der 
rechte Aufzug fährt dann sofort her- 
unter. Normalerweise geschieht dies 
erst, wenn der linke Lift oben ver- 
schwunden ist. 

Zur besseren Übersichtlichkeit fügen 


152 PRINT AT I 
"BCD"; AT 182 
"FGH”, 


(Spielstart:) 


[lim 
er” 
nom 


Nebal mas 
un Mi 


en 


ame 


Sran 


NRIH3-BHH 
>® 


ercceceenh 
SsInn-ndume 
erconia MO 
VORZ3W..I" 


Ms 
sau 
u 


"Du bist Monteur in e& 
grossenFabrik und »RUuSsst sol 
onband BEAAeTE ZUSSRMERhRUE 

LO"; AT 4,9; "JUMP"; AT 


"Sei vorsichtig beim 
ung aussteigen bei den Fahr 
\en! Dumusst jeweils von un 
in Teit/ver dss Tapedack ab 

und mit dem Lift nach oh 
aus dem rechten Lift 
nYUf AUSSTEIGEN, WERT 
einstiegsbereit dast 
zum starten bitte ei 


ea nTelım 
RITBALION-" 
„nu M-IcCI 


Ei 
e 
n 


o 
punkte=® 


P=®B: LET pl=8: LET 35=" 


- 


7 
"Punkte= “; F 
Hn_®;: 


INK 4; 
INVERSE 1; IN 
2. n>4 THEN PRINT AT n,3; I 


RM nat END, n<15 ZEN EBENE, 
„248 PRINT AT 35,5, N ER 
245 IF n»19 THEN PRINT RT n,8;" 
158 NEXT n 


155 PRINT AT 
AT ; 


1: PAPER 
PRINT AT 8,10; 
1;Ppunkte; 5 
PRINT AT 


S8-T-ÄTPBO VONN-I- 


on 


NA_QO; "3147"; 
x 5369" 


folgende Zeile ins | Das Männchen, welches sonst zum 
erstenmal durch den Druck auf Taste 5 
erscheint, ist damit bereits bei Spiel- 
beginn sichtbar. 

Viel Spaß bei Ihrem neuen Job in dieser 
merkwürdigen Gerätefabrikt!!! 


"A"; AT 17.25; 
AT 1925: 


nn man doch nicht zausstei 
rtust Deiner 18 PUNKTE! 


165_ IF n>18 AND _ p=® AND INKEYS= 
"Ss”’ THEN G0 SUB 2338 
178 IF p=1 THEN PRINT AT n-4,6; 
Anz PiT DTEAISECHED SAT n-2,5;" E 
„AL;AT D-32348, 056 
NT’ INK 6: "ll; A 
ug n =® THEN PRINT AT 5,6; " 


1882 PRINT AT n,5 
T n+1,5; INK_7;" 
8,5; 
8 IF n<4 AND p=1 THEN GO TO 9 


28 
s2o 


nauusmumma 
NEMEREME; oO 
KREMaMEzER 

En E Tene 


auREnNaAnnummE 
„munnanauuum 

() 

0) 

w 

n 

0) 

0) 

= 

(} 

® 

» 


285_IF n<2>5_ RAND p=i1 FAND INKEY$= 
"8" THEN GO TO_94Ba 
218 IF n=5_ AND p=1 AND INKEYS$=" 
ö" THEN GO SUB PSuR 
228 IF p=1 THEN 6G0_TO_ 280 n 
2598 FOR n=& TO_i1: IF INKEY$="S5" 
THEN GO_SUB 1180: NEXT m 
259 PAUSE 3 





268 NEXT n 





SINCLAIR ZX-SPECTRUM 


278 LET_p=® 

282 GO TO 16® 

1108 FOR z=25 TO 5 -1i 

1105 IF z=5 AND na Then oo TO 


93908 

111® PRINT AT 16,2;" A RT 27,E 
Tg ";ar 18,2,” E Fat’ BL Br a 22 
4115 IF pl=1 AND z=20 THEN GO Su 
S 8508 

4116 IF pl=1 AND z=28 THEN GO Su 
5 8000 

1119 PAUSE 2 

1128 NEXT zZ 

1138 IF _n>192 THEN LET p=1 

1135 LET plL=® 

1159 RETURN 


2306 BEEP .83 
3307 IF z=13 AND ag<>"P" THEN 60 
SUB 7008 


& 
« 
« 
4 
[ 
” 
= 
« 
[ 
[ 


; 
: 
en 


4009 CLEAR Sa299: LOAD “List"con 

E_ 32233,5 

‘010 0070 1 

5888 CLEAR 32232 

5@10 FOR z=32233_ TO 32282 

5828 READ m: POKE z,n 

5938 NEXT z 

5039 _DATM 8.15,197.93,9,1,17,2 

2,205,181,3,33,.8,6.17.30,8,205 

si, 48 as, 18.584106 °47745045,5°53 
‚&,228,265,181.3,225,17.8,0 

&4,235° 82.32,240,195,16,255,20 

5350 RANDÖOMIZE USR 32253 

5968 STOP 

7088 PRINT AT_2.15;38 

79082 IF a$c>"W" THEN LET punkte= 

punkte+5 

70883 IF a$="B" THEN LET punkte=p 


unkte-3 
7@85 PRINT AT 0,19," “,AT 32,10; 
so e= er FLASH 1;punkie; FLR 


5H 
Tao’ FOR_k=8 TOD 2088: NEXT K 
7358 GO SUE 36099 


Oktober 1983 











7378 LET 3$=" 
7399 IF b$=  "THEN LET 

os ar tin 

7408 IF Sr" THEN GO T 
O0 9990 

7508 RETURN 

saaa FOR h=28 TO S STEP -i 

Sseo2 BEEP_.23,h 

Sala PRINT AT h.25; "BEES': RAT n+i, 


8828 NEXT h 

Sasga RETURN 

8588 PRINT AT_ 17,208; “R“ 
8521 RANDOMIZE 
95982 zoR i=1 TO 9: LET %=INT iAN 





D#9) + 
S505 *BRINT PT 314,14: "TEIL Nr.";:M 
Ze nr. FLASH Ii;bstx),; FL 


8586 BEEP 

Besacsı INKETH=STRE x 'THEN'LET'8 
x 

8516 IF a$="" OR a$="f" THEN LET 


8sj7 RINT_AT 21,11; INK 1;"Du h 
ast:";3a8&; INK 7,” " 

8519 IF InkEvgesen THEN RETURN 
8528 NEXT i 


8999 REM figur EEE 
RERD f$: FOR 


98898 FOR_b=1 TO 18: 
a=8 TO_ 7: RERb_F: FOKE USR fFS+a 
„f: NEXT 3a NEXT b 
9901 CLS 
9082 GO 


To 3 

ge10 DATA /A”.126,259,159,255,18 

9880 BATA’"B",0,3,15.69,45,24,28 

88392 DATA "C",690,255,255,129,255 
129,255,126 

S820 DATA “D“,0,192,240,6@,12,12: 

gasö vera "E",126,255,128,1298,12 
60, 126,255 

Soeo’DAra "En ,O, 7,35 

9078 DATA “Gr 12882 168, 353; 151,2, 

1,0 

Sasd para "4" ,90,9,90,90,.1328, 1228,19 

2,22 

5698 DATA j],,255, 128,142, 145,16 

sioo DATA "UN ,145.142, 128,12, 12, 

„Kl, 128,192,264,175,16 

size DATA "L",255,0,0,0,129,12®8, 
3 

5136 DATA "N",08,0,0,0,0,50,58,25 


BisanEaLz "N",9,242,23,58,80,247 


had 
PR 
u 
v 
pr 
{4} 
u 
” 


Punkte= 15 


nmunannm 
Kuumuannm 
auusanmun 
unuumauanı 


Homecomputer 39 


Punkte= 15 


ua.n.unnn.um 
aunnunumn 
aunumnauwum 
zsuanummMm 
unaunumM 


#150 beta "0" ,255,132,213,137,5,37 
ss "P”r,137,319,2,13,2,1,15 
8170 DATA "0",1,17,57,17,1,57,1, 


2 

a DATA "R",144,96,57,15,80,2,8 

85@8 PRINT AT „16; Fa 4 
‚5; FLASH 2; ' ; FLRsh 2;n 
19,5;" BD Ar 185,5; 

‚AT 28,5; "ACEFGH“ 

93981 RANDOMIZE USR_ 32253 

8318 FOR k=2 TO 800: NEXT k: cıs 


A315 PRINT FLASH 2;“Faisch einge 
aergen mein Lieber!ber Lift erw 
isch Bich!"; FLASN 
3328 GO _TO 9950 
$488 PRINT _AT n-5,5;“ RAT 5 
22 SAT n-8,8;8 ar DB 
I FLASH 1;"* FLASH 6 ATn- 
5; "ACD";AT n, GH" 
1 RANDOMIZE USA Saaaa 
FOR k=@ TO 588: NEXT k: CLS 


PRINT INN Z; FLASH 1;“Nier 
Ban dach nicht aussteigen! 
FLASH @ 

Go TO 3950 

ErR k=8 TO 188: NEXT k 


PRINT ; INK 1; FLASH 1; "Du 
haettest fruüeher aussteigen sol 
len, ‚jetzt musst Du mit einer dic 
ken Beule ins HOSPITAL nn 7 
ASH © 
3528 29272.898 
2 10,10: PRINT AT U. 

ap: AT 102.15; “: NEXT . 

säs RANDGNIZE" USR s32233 


a%#="I" THEN PRINT AT 7,1 
IF a$="I" THEN LET bEti3='" 8 
IF a3$="L’H THEN PRINT ATT 7A 
IF a$="L" TNEN LET b$t4) =" 


+ 
R 
- 


z 
ı 








a$="0" THEN PRINT AT:7, I 
ag="Q" THEN LET BIIMDI="R 
as="4" THEN-PRINT AT 8,1 
a$="J)" THEN LET b$(23="B 
a$="M" THEN PRINT AT 8,1 
ag="M'. THER LET bHi5I = 
a$="P" THEN PRINT. ATÜ8}21: 

IF a$="P" THEN LET b&${8) =" 

IF a$="K" THEN PRINT AT 3,i 

IF ag="K“ THEN LET. b$19r='B 

IF a$="N" THEN PRINT AT 9,1 

IF a$="N" THEN LET bS(6I=-'"E 

IF ag="0“ THEN PRINT AT 3,1 

IF a$="0" THEN LETbEOI="R 

LET ag="“ 

RETURN 

FOR k=1 TO 308: NEXT k: CLS 

IF punkte>58 THEN- PRINT" "Du 

warst schon ganz gut! Jetzt da 
rfst Du die naechsten Geraete ZU 
sammensetzen:“ 

8918 IF punkte<198 THEN PRINT "U 


eiter so!" 

9929 _ IF punkte:=108 AND punktet= 
288 THEN PRINT_"Hervorragend!tt” 
9932 FOR_k=1 TO 288: NEXT K 

2949 GO_TO & . 
9958 PRINT "Totalverliust Deiner 
“;punkte;“ PUNKTE!" 


WON 
0“ 
w 
ir 


UmD 
gu 


N Qua Nu Pop QuW M 


OND 2080 
ad] 


:VO0 : 
ma dem 


u mau Dean Dan an 


u“ 


Punkte= 


SBARNEEEARUNANERERE]M 


zaanununanmum 
aanunauanmmm 


3955 INPUT "Willst Du es nochmal 
„ZEFSUERENT TZIRPE J der BR ein: " 


es 
BS6o_ IF e$g="j" OR e$="J" THEN 60 


970° PRINT AT 18,6; INK 1;“Hst m 
ich gefreut,mit Dir SPıielenzuU Ko 
ennen,bis dennsechst nal Wwiede 
rn" 

3971 STOP 

3398 SAVE "Lift" LINE 4000 

9992 SAVE "Li ft"CODE 32233,5% 





Quadrato 


für den TRS 80 


”Quadrato” ist ein neues Denkspiel, bei dem es darum geht, auf einem 7 x 7 Felder 
großen Spielplan Quadrate zu legen. 


Der Computer ist hierbei lediglich 
Verwalter und zeigt durch Blinken der 
vier Ecksteine an, wenn ein Spieler ein 
Quadrat gebildet hat. 

Es werden auf dem 49 Felder großem 
Spielfeld jeweils 48 ”Steine” pro Spiel 
gelegt. da sonst der 1. Spieler benach- 


teiligt wäre. 

Wir hatten zwar eine Routine in 
Maschinensprache geschrieben, die es 
dem Computer ermöglichen sollte, als 
Gegenspieler zu fungieren, doch war 
selbst die schnellste Version noch zu 
langsam (15 min. für den ersten Zug, 


die nächsten entsprechend langsamer). 
In dem Programm-Listing müssen 
beim Eintippen natürlich alle Para- 
graphzeichen in "Klammeraffen” (C) 
vertauscht werden. 


EEE 2 20221212 202 202 er a 
** "QBUADRATO" ** 
** ** 
** ** 
** ** 
** ** 
** D-52068 Neunkirchen-Seel.i ** 
** Telefon: 02247 - 4147 ** 
ESS 2 2 2 2 2 Sn nn nn 

CLEAR 1000 

DEFINT A-Y 

DEFSTR Z 

DIM At100) 

ELS 

FOR A=1 

PRINT 8 

FOR B=1 

NEXT B 

PRINT S 458," UADRA TO 

FOR B=1 TO 20 

NEXT B, A 

FOR A=1 TO 500 

NEXT A 

PRINT 8 

FOR A=1 

NEXT A 

PRINT 5 772,"Jörg Tegeder ‚Keplerstrasse 5,D-5205 Neunkirchen-Seel. 1" 

PRINT 5 854,"Telefon: 02247/4147"; 

GOSUB 11500 

SP=0 

FOR B=1 TO 20 

GOSUB 4000 

NEXT B 

PRINT 5 970,"<A> für Anleitung... <B> für Spielbeginn !"; 

FOR B=1 TO 20 

GOSUB 4000 

NEXT B 

PRINT 5 966, STRING$ (51, 32335 

IF SP=0 THEN 3100 ELSE 4400 

A=PEEK (14337) 

IF A=2 THEN PRINT 5 966, STRING$(S1, 32)5: GOSUB 13100: 

IF A=4 THEN SP=1 

RETURN 

FOR A=1 TO 500 

B=RND (129) -1 

C=RND (48) -1 

IF POINT(B, C)THEN RESET(B, C}: NEXT A: CLS: GOSUB 5300: G0TO 7400 

SET(B, ©) 

NEXT A 

CLS 

GOSUB 5300 

GOTD 7490 

FOR A=0 TO 32 STEPS 

PRINT 5 A, Z{1)5 

PRINT 5 A+64, Zi2); 

PRINT 5 A+128, Zi3)5; 

PRINT 8 A+192, Zi2)35 

5 
5 


Tegeder 
Keplerstrasse 5 





To 10 
468, STRING$(25, 3295 
TO 20 


| 


670, "von"; 
TO 500 





CLS: GOTO 1400 











PRINT 5 A+256, Z(3)5 
PRINT 8 A+320, Z{2)35 





6000 PRINT 
6100 PRINT 


$ A+394, Z(3); 
8 A+448, Zi2); 
6200 PRINT 8 A+512, Z(3); 
6300 PRINT 5 At576, Z{2)5 
6400 PRINT 5 At640, Z{3735 
6500 PRINT 5 A+704, Z(2)35 

6600 PRINT 5 A+t768, Z(39; 

6700 PRINT 5 A+832, Z{2)5 

6800 PRINT 5 A+896, Z(4); 

6900 NEXT A 

7000 FOR A=0 TU 48 

7100 PRINT 5 AtA), STRINS${Z-LEN(STR$ (A) )+1,"0")+RIGHTS(STRE{A}, LENISTRS(A)F-L}3 
7200 NEXT A 

7300 RETURN 

7400 PRINT 8 104,"Spieler i fängt an."; 

7500 PRINT & 164,"Er benutzt diese Steine:" Z(5}; 

7600 FOR A=1 TO 1006 

7700 NEXT A 

7800 PRINT 5 104, STRING$(20, 32); 

7900 PRINT 5 164, STRING$(27, 3235 

8000 PRINT & 105, "Spieler 2 benutzt"; 

8100 PRINT & 169, "diese Steine: ";Zi&)} 

8200 FOR A=1 TO 1000 

3300 NEXT A 

8400 PRINT 5 103, STRING${20, 32); 

3500 PRINT 5 169, STRING$ (16, 32); 

8600 FOR NU=1 TO 24 

8700 PRINT 5 106,"Zug Nummer " STRING$ (3-LEN {STR$ {Ni} ) +1, "0" +RISHTS (STR$ (NU}, LEN{STR$(NU) 3-1) 
8800 FRINT 5 172,"Spieler 1 ?"; 

8900 Z=INKEY$ 

9000 GOSUB 20700 

9100 PRINT 5 AtDE), Z(5);5 

9200 PL=i1 

9300 GOSUB 23400 

9400 PRINT S 184, STRING$(35, 32); 

9500 PRINT $ 172,"Spieler 2 ?"; 

9600 Z=INKEY$ 

97700 GOSUB 20700 

9800 PRINT 5 A(DE), Z{6)5 

9900 PL=2 

10000 GOSUB 23400 

10100 PRINT 5 184, STRING$(3, 32); 

10200 NEXT NU 

10300 PRINT 8 106, STRING$(14, 32); 

10400 PRINT 5 172, STRING$(14, 323; 

10500 FOR A=1 TO 1000 

10600 NEXT A 

10700 PRINT 5 106, "Neues Spiel,"; 

10800 PRINT 5 176, "neues Glück ?"; 

10900 Z=INKEY$ 

11000 IF Z<>"J" AND Z<>"N" THEN 10900 

11100 

11200 

11300 PRINT 5 534,"TSCHÜüS !" 

11400 END 

11500 Z(1)=CHR$ (156) +#STRING$ (3, 140)+CHR$ (172) 

11600 Z (2)=CHR$ (149) +STRING$ (3, 32) +CHR$ (170) 

11700 Z (3) =CHR$ (157) +STRING$ (3, 140) +CHR$ (174) 

11800 Z(4)=CHR$ (141)+STRING$ (3, 140) +CHR$ (142) 

11900 Z (5) =CHR$ (183) +CHR$ (179) +CHR$ (197) 

12000 Z(6)=STRING$ (3, 191) 

12100 SC(1)=0 

12200 SC(2)=0 

12300 B=60 

12400 C=B 

12500 FOR A=0 TO 48 

12600 B=B+5 

12700 AtA)=B 

12800 IF (B-C) /35=INT((B-C) /35)THEN B=B+129: B=8-35: C=C+128 
12900 NEXT A 

13000 RETURN 


13100 Z(7)="Bei Quadrato geht es darum, auf dem Spielfeld Quadrate zu bilden und gleichzeitig zu 


verhindern, daß der Gegenspieler dies schafft. Um ein Buadrat zu bilden, legt man nur die vier 
Ecksteine. " 






































13200 
13300 
13400 
13500 
13600 
13700 
13890 
13900 
Ta000 
14100 
14200 
14300 
14400 
14500 
14500 
14700 
14800 
14900 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16000 
168100 
16200 
16300 
16400 
16500 
16600 
16700 
16300 
16900 
17000 
17100 
17200 
17300 
17400 
17500 
17o0U 
17700 
17800 
17900 
18000 
18100 
18200 
18300 
18400 
18500 
18600 
18700 
18800 
18900 
19000 
19100 
19200 
19300 
19400 
19500 
19600 
19700 
19800 
19900 
20000 
20100 
20200 
20300 
20409 
20500 


B=0 

FOR A=62 TO ö0 STEP -1 
B=B+1 

PRINT 5 A+960, LEFT$(Z{7), BD; 
FOR C=1 TOD 40 

NEXT E, A 

FOR A=2 TO LEN(Z{T} 
PRINT 5 960, MID${Z{7}, A, 6395 
FOR B=1 TO 407 

NEXT B, A 

ELS 

GOSUB 5300 

PRINT 5 103, "Einige Beispiele:"; 
GOSUB 20400 

PRINT 5 A(3), Z(995 
SOSUB 20490 

PRINT 5 A(2N), Z{95 
GOSUB 20400 

PRINT 5 At{45}, Z(93 
GOSUB 20400 

PRINT 5 At21), Z{95 
PRINT & 556, "Buadrat”s5 
GOSUB 20400 

FOR A=1 TO 10 

PRINT 5 AlZ), Z(95 
PRINT 5 A(27), Z(5)35 
PRINT 5 At45}, Zi55 
PRINT 5 At21), Z(5) 
PRINT 5 556, "Quadrat"; 
FOR B=1 TO 100 

NEXT B 

PRINT 8 AZ), Z(6)5 
PRINT 8 A(27), Zi6)5 
PRINT 8 A(45), Zi6)5 
PRINT 5 At21), Z(6)5 
PRINT 8 556, STRING$(7, 3295 
FOR B=1 TO 100 

NEXT B, A 

PRINT 8 A(3),"003"5 
PRINT 8 A(27),"027"5 
PRINT 8 A(45),"045";5 
PRINT 8 At21),"021"5 
GOSUB 20400 

PRINT 8 Ati), 2(9); 
Gusub Zu4uU 

PRINT 8 Ati4), Z(5); 
GOSUB 20400 

PRINT 8 A(18), Z{5); 
GOSUB 20400 

PRINT 5 A159), Z(95 
PRINT 8 556, "Kein Quadrat"; 
GOSUB 20400 

FOR A=1 TO 10 

PRINT 8 All), Z{95 
PRINT 5 At4), Z{5235 
PRINT 8 At18), 215); 
PRINT 8 A(19), Z{95 
PRINT & 556, "Kein Quadrat"; 
FOR B=1 TO 100 

NEXT B 

PRINT 5 Ati), Z{&} 
PRINT 5 A(4), Zi6) 
PRINT 8 At18), Z(6)5 
PRINT 8 Al15), Z{6); 
PRINT 5 556, STRING$(12, 
FOR B=1 TO 100 

NEXT B, A 

PRINT 5 Ati1),"O01"3 
PRINT 5 A(4), "004"; 
PRINT 8 At18),"018"5 
PRINT 8 At{15),"015"5 
PRINT 5 103, STRING${17, 
FOR A=1 TO 500 

NEXT A 




















20800 
20700 
20900 
20900 
21000 
21100 
21209 
21300 
21400 
21500 
21600 
21700 
21800 
21900 
22000 
22100 
22200 
22300 
22400 
22500 
22800 
22700 
22800 
22900 
23000 
23100 
23200 


RETURN 
DE=0 

Z=INKEY$ 

IF Z="" THEN 20700 i 

IF ASC(ZI=8 THEN PRINT 5 184," "j: DE=0: 

IF ASCiZI)<48 OR ASC(Z}>57 THEN 20700 

PRINT 8 184, 2; 

DE=VAL(Z) 

Z=INKEY$ 

IF Z="" THEN 21400 

IF Z=CHR$(13)THEN 22700 

IF ASC(ZI=8 THEN PRINT 5 184," "s: 6070 

IF ASC(Z)<48 OR ASCIZ}>57 THEN 21400 

PRINT 5 185, 2; 

DE=DE*10+VAL(Z) 

Z=INKEY$ 

IF Z="" THEN 22100 

IF Z=CHR$ (8) THEN PRINT $ 185,” "j: DE=(DE-(DE-INT(DE/10)*19))/10: 80T 21409 
IF Z=CHR$ (13) THEN 22700 

IF ASC(ZI)<48 OR ASCiZ) >57 THEN 22100 

DE=DE#10+VAL(Z) 

PRINT 5 184, STRING$ (5-LEN(STR$ (DE) )+1,"0")+RIGHTS(STRS(DE), LEN(STRSBEN-1)5 
IF DE<O OR DE>48 THEN A=1=1: GOTO 23209 

Asi1=0 

IF PEEK{A(DE)+15360) >128 THEN A =1=1: GOTO 23200 

A=i=0 

IFA THEN PRINT 5 251,"Das war wohl nichts "5: FOR A=1 TO 1000: NEXT A: PRINT 5 231, STRI 


NG$i21, 3225: PRINT 5 184, STRING$(S, 32)5: Z=INKEY$: SOTO 20700 


23300 
23400 
25500 
23600 
23700 
23800 
23700 
24000 
24100 
24200 
24309 
24400 
24500 
24600 
24700 
24800 
24900 
25000 
25100 
25200 
25300 
25400 
25500 
25600 
25700 
25800 
25900 
25000 
26100 
26200 
26300 
26400 
28500 
26600 
26700 
26800 
26900 
27000 
27100 
27200 
27300 
27400 
27500 
27600 
27700 
27800 


RETURN 

B=INT (DE/7) 

C=DE-B#*7 

D=PEEK (15361+A (DE) 

E=15361 

FOR N=1 10 & 

IF C-N<O THEN 25009 

IF PEEK(E+ALLC-N)+B#7) 1<>D THEN 25000 
IF B-N<O THEN 25009 

IF PEEK(E+A{DE-N*7) }<>D THEN 25000 
IF PEEK(E+AC{C-NI+iE-N)#7))<>D THEN 25000 
SC (PLI=SSC PL) + 

PU (13=DE-N#7-N 

PU (2)=DE-N*7 

PU (3)=DE-N 

PU(4)=DE 

GOSUB 33300 

IF C+N>& THEN 26100 

IF PEEK(E+A(DE+N))<>D THEN 26106 

IF B+N>& THEN 26100 

IF PEEK{E+AC(B+N)&*7+C))<>D THEN 25100 
IF PEEK(E+A(CHN+{B+N)#7) )<>D THEN 26100 
STLPL)ISSCIPLI+1 

PUt{1)=DE 

PU (2)=DE+N 

PU(3)=DE+N#7+N 

PU(4}=DE+N*7 

SOSUB 33300 

IF C+N>6 THEN 27200 

IF PEEK\E+A(DE+N) )<>D THEN 27200 

IF B-NXO THEN 27209 

IF PEEK(E+A{(B-N)*7+C) )<>D THEN 272 
IF PEEK(E+AC(B-N)*7+N+C})<>D THEN 2 
SEIPLISSCIPLI+I 

PU(1)=DE-N*7 

PUL2)=DE-N&7+N 

FU{3)=DE+N 

PU{4)=DE 

SOSUB 33300 

IF C-N<0 THEN 28500 

IF PEEK(E+AtDE-N)}<>D THEN 28300 

IF B+N>& THEN 28300 

IF PEEK(E+A(DE+N#7})<>D THEN 28300 
IF PEEK(E+A{DE+N#7-N))<>D THEN 28300 
SCIPLISSCPL)+1 

PUC1)=DE-N 




















27900 


28000 PU 


28100 
28200 
ZU300 
28400 
29500 
28600 
28700 
28800 
28700 
297000 
27100 
29200 
29300 
29400 
29500 
29600 
29700 
29800 
29900 
30000 
50100 
30200 
30300 
50400 
30500 
30600 
30700 
50800 
30900 
31000 
51100 
51200 
31300 
31400 
31500 
31800 
31700 
31800 
31900 
32000 
32100 
32200 
32300 
32400 
32500 
32600 
32700 
32800 
32900 
33000 
33100 
33200 

3300 
33400 
33500 
33600 
33700 
33806 
33900 
54000 
34100 
34200 
34300 
34400 
34500 
34600 
34700 


PU (2)=DE+N*7 
{3)=DE+N#7—-N 
PU{4)=DE 


GOSUB 33300 


IF 
IF 
IF 
IF 
IF 
IF 


B-2Z#N£0 THEN 29 

PEEK (E+A (DE-2&N#7) )< > 
C-N<O THEN 29500 

PEEK {E+A {DE-N*7-N) 
C+N>6 THEN 29500 
PEEK(E+A{DE-N#7+N} I< 


29500 


27500 


29599 


SCiPL}=SC(PL}+1 
PU{1)=DE-14*N 
PU {2)=DE-N#7-N 
PU (3)=DE-N*7+N 
PU (4)=DE 


50SUB 


co 


IF 
IF 
IF 
IF 
IF 
IF 


B+2#N>6 THEN 30700 
PEEK (E+A (DE+2*N#7) )<>D 
C-N{0O THEN 30700 

PEEK (E+A (DE-N+N*7) x >D 
C+HN>6 THEN 30700 

PEEK (E+A (DE+N+N&*7) )<>D 


30700 


30700 


30790 


SCtPLI=SCIPLI+1 
PU{1)=DE+2%N*7 
PU (2)=DE+N+N*7 
PU (3) =DE-N+N#7 
PU(4)=DE 
GOSUB 33300 
C+N*2>6 THEN 31900 
PEEK (E+A(DE+N#2) )<>D THEN 31900 
B-N<O THEN 31900 
PEEK (E+A (DE+N-N*7))3<>D THEN 31990 
B+N>& THEN 31900 
PEEK (E+A (DE+N+N#7) 3<>D THEN 31900 
SC(PLI=SSC(PLI+ 
PU(1)=DE+N*2 
PU (2) =DE+N+N#7 
PU (3) =DE+N-N#7 
PUt4)=DE 
SOSUB 33309 


IF 
IF 
IF 
IF 
IF 


C-N#*2<0 THEN 33100 

PEEK (E+A(DE-N#2) )<>D THEN 33100 
B-N<0 THEN 33190 
PEEK (E+A (DE-N-N#7) )% 
B+N>& THEN 33100 


THEN 35100 


IF PEEK(E+A(DE-N+N#7) )<>D THEN 33100 
SC (PLI=SC(PLI + 

PUt1)=DE-N*2 

PU (2)=DE-N+N#7 

PU (S}=DE-N-N#7 

FU(4)=DE 

GOSUB 33300 

NEXT N 

RETURN 


PRINT 5 
PRINT 8 
PRINT 8 
FOR R=1 
FOR F=1 


869, "Spieler 1 
936, STRING$ (3 


Spieler 2"; 
LEN {STR$ {ST (1) ) I +1," 


"I+RIGHTE ISTR$ SCI), LEN{STRELSCLL)D)-1)5 
952, STRINS$(F-LEN(STR$ {SC 2) )) +1, "0" I +RIGHTSSTR$(SC(2)), LEN(STR$(SCIZIY)-1)5 
TO 5 

TO 190 


NEXT P 

FOR 8=1 TO 4 

PRINT 5 AtPUt@)}, STRING$(3, 
NEXT @ 

FOR P=1 TO 100 

NEXT P 

FOR Q=1 TO 4 

PRINT 8 A{PUiM), Zt4+PL335 
NEXT @, R 

RETURN 














Skipping Ball 


für den VC-20 


Das Spiel””Skipping Ball” für den VC-20 läuft in der Grundversion. Ziel des Spieles ist 
es, einen Ball so zu lenken, daß er einen Kreis trifft. 


Das Steuern geschieht mit den Tasten | Schwierigkeitsgrad (von I - 9) mehr | kann das Spiel mit ”!” abgebrochen 
"M” und "N". Dabei erscheinen die | oder weniger. werden. Die Namen sollten möglichst 
Symbole (Schrägstriche) immer an der | Das Spiel kann von maximal9 Spielern | nur6 Buchstaben lang sein, da sie sonst 
Stelle, an dersich der Ball befindet. Das | gespielt werden. abgeschnitten werden. 

Ziel (Kreis) bewegt sich je nach | Ist die Lage scheinbar aussichtslos. | Viel Spaß und guten Skip!!! 


POKE36879, 25 
PRINT" TIMER" ; TABC4) " MSKIPPING BALLE" 
PRINT"MM E1993 Er: " 
PRINT"? M.QUINKE" 
PRINT"M A. SCHMITZ" 
PRINT" A 
PRINT”  & S 
PRINT" NSSOFTE" 
PRINT"  SYSTAX SOTFWARE" 
188 FOR Z2=1103098: NEXTZZ 
119 Px=1:DIMNAC9) ,PN$C9) ,PSAC9) ,PMAC9) 
129 PRINT" BSSKIPPING BALLE" 
130 PRINT"MTREFFE DEN PUNKT LO1" 
:4E PRINT"SKIPPEN MIT Nm UND ame" 
150 PRINT" Mamas sHeiis Serena ine tele Bere eneeeenee 
168 PRINT"WSPIELERANZAHL (1-9)? "; :G0SUB97A:PY=X 
178 GOSUB1038 
180 PRINT:PRINT:PRINT"4 DRUECKE RITURN  " 
BETAS: IFAS<ICHRSCASITHENLIO 
PL=PL+1: IFPL>PYTHENPL=1 
B$="g "ES ETETEDEKTNDETDNTRTOKDTKONDEREDEN 
TS=T1:TX=TS+6Q@8:PC=1:PK=7933 :D=l 
POKE36879, 93: PRINT" "FI" BE" 44 SPIELER" ?L"-"LEFTSCPNSCPL), 10); 
FORI=1T020:PRINT" PERDEDBRBBFRDERBRRDR "; 
NEXT:PRINT"4 SCHWIERIGKEIT ="(20-NACPLYI/2"W'LEFTSCBS,3); 
T=INT(RND(1)%456+7688) : IF C7922<TIANDCT<7944) THEN269 
TD=1 :NN=NZCPL) 
1FPEEKCTICY32THEN26 
POKET,87 
REM 
FORII=1TONN: IFPEEK<(PE)=81 THENPOKEPE, 32 
PE=PK :GETI$: IFI$C>""THEN420 
IFPEEK(PK+D)<>32THEN378 
PK=PK+D:POKEPK,81:NEXT:POKET.32:T=T+TD%4D 
IFPEEKCTI<>32THENTD=-TD: T=T+TOKD 
POKET ,87:6010318 
IFTI>TXTHENPS=9:G0T0568 
IFPEEK (PK+D)=78THENPK=PK+D : D=D-SGN(D)#23:G0T0318 
IFPEEK(PK+D)=77THENFK =PK+D:D=SGNCDI#C CABSCDIANDI )%22+CABSCDIAND22)722) :60T03 


D=-D: IFPEEK(PK-D)=87THENSSE 
G0T0319 

IFI$="N"THEN4GO 
IFI$="M"THEN498 

IFI$=" |! "THENPS=9:60T0568 
6010339 

O=D:PC=PC+1 :POKEPK, 78 
D=D-SGNCD)#23:G0T0318 
IFPEEK<PK+DI=78THENFK=PK+" 
0=D: PC=PC-1:?OKEPK,77 





5@: IFO=-1THEND=-22:REM u 

518 IFO=22THEND=1 

5280 IFO=1THEND=22 

538 IFO=-22THEND=-1 

548 GOTO318 

559 PS=1909-12%(PC-1)-INTCCTI-TSI76) : IFPS<OTHENPS=1 

568 PSACPLI=PS 

578 PMECPLI=INTCCPMACPLIKCPK-1IHPSI/PR) 

580 POKE36879, 25: PRINT" IE r——— tr — 

598 PRINT" RIPLAYER IDIF IPUN. IDUR. 1": 

sn PRINT —— 1" 

618 PRINT"AIE j j I al”; 

629 FORI=1TOPY 

630 Q=(1-1)%22: IFID4THENA=(I-57#22 

648 IFI>STHENA=8 

658 PRINT" AIM"PNECTIC2O-NACIII/2" 1" SSTRECPSACTYISTABCLE+RN" "SSTRECPMACTYITABCZ 

1m" al"; 

668 NEXT 

678 PRINT 3IM j j j al"; 

688 PRINT RL ——————  E 

698 PRINTSPC(3)" SPIEL NUMMER"PX 

7a8 PRINT"#" ; :FORKK=1T03+PL:PRINT"M" ; :NEXT:PRINT" SE" :FORKK=PLTOP'Y PRINT" M"; :NEX 

T 

718 IFPL=PYTHENGOSUB738:FORI=1TOPY:PSACII=B:NEXT:PX=PX+1:GOTN18B 

728 PRINT"MI"SPCC3)" MDRUECKE RETURN” :GOTO198 

738 PRINT"MI"SPC(4)"WAENDERUNG DER” 

748 PRINT"M SSCHWIRIGKEITLJ/NDE "; :GOSUBFIR 

75@ IFA$="N"THENRETURN 

769 PRINT"TIIMNSPIELERNUMMER? "5 :GOSURB97 A: %=K: IFX>PYTHEN?ER 

778 A$=PNECKK) :AA=1D 

780 IFMIDSCAS,AR,1>=" "ANDAA>1THENAR=AR-1:GOT0788 

73a A$=LEFTECAS,AAI+"S "PRINT" MEA"A$:PRINT"MOMENTANER SCHWIERIG- KEITSGRAD 
ENCZO-NACRKII/2 2 

808 PRINT"KPUNKTDURCHS. "PMARCHK) 

818 PRINT"MLETZTE PUNKTZAHL: "PSACHX) 

828 PRINT"MMNEUER SCHWIERIGKEITS- GRAD (1-93? ";:GOSUBITA:NACKRI=2O-REZ 

839 PRINT :PRIHT"WWEITERE"CHREC13) ; "RENDERLINGEN CJ/ND? "5 :GOSUBF1R: IFA$="J"THEN?6 

a 

848 RETURN 

858 FORI=1T0199:GETA&: IFA$<CH""THENSIG 

860 NEXT:PRINT"A MI"; 

878 FORI=1T0198:GETA$: IFA$C>""THENS9O 

888 NEXT :PRINT"E I"; :G0T0858 

830 IFVALCALI=DTHENSSO 

3aa Pi: INT"W"AS:S=VALCAF) RETURN 

91a FORI=1TO1BA:GETAF: IFAS<C>""THENISO 

920 NEXT:PRINT"A WM"; 

938 FORI=1T0190:GETA$: IFAFCH""THENISE 

94a NEXT: PRINT" 1"; :GOTO918 

958 IFARECH" I"ANDASSZ"N"THENILE 

968 FRINT"B"AS:RETURN 

97a FORI=1T0198:GETA$: IFA&C>""THEN1S1 

939 NEXT:PRINT"A I"; 

998 FIR .=1T010M:GETAE: IFASS>""THEN1918 

12aa NEXT:FRINT"E I"; :GOTD978 

1819 IFASC" L"ORAS>"3"THENI?O 

1020 PRINT"E"AS:K=VALLA$):RETURN 

1838 PRINT"M" :FORK=1TOPY:PRINT"NAME VON SPIELER"K" "; 

1248 INPUTPNECK? 

1059 PRINT:PRINT"SCHWIERIGKEITSGRAD SPIELER"K" (1-95? "5 :GOSUBITE:NACKI=20-2#H 

859 GOSUBLASY : 

1278 PRINT :NEXT:RETURN i 

1988 PHECKI=PNECKI+" ":PNSCKISLEFTECPNECK),SI+" BREI" RETURN 





Einsiedler 
für den VC-20 


Das bekannte Einsiedlerspiel läuft auf | Verfügung: Tastatur selbst versuchen. 

der Grundversion, im anderen Fall | 1. Man kann sich eine Lösung aus- | 3. Man kann sich eine eigene Belegung 
sind die Bildschirm-Pokes zu ändern. | geben lassen. bauen und davon ausgehend spielen. 
Es stehen drei Möglichkeiten zur | 2. Man kann es mit Joystick oder 


PRINT" IBDAS EINSIEDLERSPIEL" :PRINT"MIBEZUM SETZEN FAHREN" 
PRINT"WSIE MIT DEN CURSOR-":PRINT"MSTEUERTASTEN UNTER" 
PRINT" DEN ZU SETZENDEN" :PRINT" STEIN, DRUECKEN * *" 
PRINT"IUIND FAHREN DANN ":PRINT"MUNTER DIE" :PRINT"WEIELPOSITION UND" 
PRINT"IIDREUCKEN ERNEUT * 7" 
PRINT" IIBNAEHLE EINE DER" :PRINT"IB MOEGLICHKEITEN" 
PRINT"WIL : LOESUNG" :PRINTIE : VOLLES FELD":PRINT"IB : EIGENE EINGABE" 
GETA$: A=YALCA$> : IFA<LORR>3STHENIB 
ÖNAGOTO18B, 188,308 
PRINT "" TIRDWE DEKA" 
PRINT" IDEKIEIIEK “© 8" :PRINT"IDKRIENDEH 
PRINT'IEKIENNK © 0 0 0 © © 8" :FRINT"IDKKMENDE* 
FRINT'IMKMENK 000 0 © 8": PRINT" IDKRMEBRK 
PRINT" IDKKRIRDK* “0 8':PRINT'IWK" 
PRINT" EMRK" : PRINT" TBWKaKORR a RERKaK eakkakaka" 
%=7866 : POKEX , 38: POKEX+39720, 6: ZA=32 
IFA=1THEN288 
GETA$: IFA$="+"THEN1208 
505UB9999 : GOSUB1999 :GOTL16B 
READX$: I=1 
A$=MIDSCH$, 1,1): IFA$="@"THEN168 
FORJ=1T0588: NEXT 
GOSUB1888: I=I+1: IFI<=LENCK$>THENZ19 
G0T0288 
PRINT" TINDIIEEBIGEBEN SIE 0°" :PRINT"WBBIDDER ‘8’ EIN" 
FORI=1T04288 : NEXT : PRINT " TIHIRBkk3aakakakakalalakaatalakakklalala" | PRINT " IbK" 
FORI=1T02: FORJ=1T03:PRINTTAB(E+ #23 "Il" ; 
GETA$: IFA$<C>" O"ANDA$<>" 8" THEN339 
PRINTRA$; : IFA$="@" THENZA=ZA+1 
NEXT: PRINT : PRINT" TIBRKIINBEK" : NEXT 
FORI=1T03: FORJ=1T07 :PRINTTAB<2+1%23 "0" ; 
GETA$: IFA$<>" @" ANDAS<>"0"THEN3?8 
IFA$="8" THENZA=ZA+1 
PRINTAS; : NEXT: PRINT : PRINT" TEBOKEbRR" NEXT 
| FORI=1T02:FORJ=1T03:PRINTTABCE+J#2) "MI" ; 
488 BETRA$: IFA$<>"@" ANDAS<>" 0" THENABR 
495 IFA$="8" THENZA=ZA+ 
41& PRINTAS; NEXT: PRINT : PRINT" TEEKEBKF" NEXT :GOTO148 
1898 IFAS<>" "ANDBU=@THENI197E 
1818 IFY<>BTHEN1A4B 
1826 IFPEEK(CK-22)<>81THENRETURN 
1838 Y=4-22:POKEY.42:RETURN 
1248 IFPEEK(X-22)<>870R CABSCH-X+22)<>4ANDABSCY-%+22) >88) THENPOKEY,81:7=@:RETURK 
1058 IFPEEKCCY-K+22)/2+%-223<>81THENFOKEY 81: 7=9: RETURN 
1868 POKEX-22.,31: POKECT-H+22)72+%-22.,87:POKEY 37: Y=9: Z=Z+1: RETURN 
1878 IFCA$="T'OROB)ANDPEEK (4-44) =32THENPOKEN 32: %=%-44 
12838 IFCA$="M'ORUN>ANDPEEK (%X+44)=32THENFOKEX , 32: X=%+44 
1898 IFCA$="M"ORLI>ANDPEEK(X-2)=32THENPOKEX . 32: %=%-2 
1188 IFCA$="W"ÖRRE>ANDPEEK (X+2)=32THENPOKEX 32: K=%+2 
1118 POKEX, 38: POKEX+39728.8 
1124 RETURN 
1280 PRINT"TIIMBISIE HABEN ";Z:PRINT"MIBBSTEINE GESCLAGEN. " 
1218 IFZA-Z>1THENPRINT"MBES SIND NOCH ";ZA-Z:PRINT"WBBISTEINE LEBRIG. " 
1215 IFZA-Z=1THENPRINT"WBES IST NOCH EIN" :PRINT"BBETEIN UEBRIG !" 
1228 PRINT" DDDERBBPRESS Ahr KEY" 
1230 GETA$: IFA$=""THEN1238 
1248 RUN 
2120 DATA" 9 TE MI BETT MI STB HM MUT TI MO MH NEE TI" 
2118 DATA" TI DBI Mm TEM HMI ON CU MB TUR HMI MEN 777 SIT" 
2128 DATA" MM TUN HI MI DM 77 E00 TI BE HM TI KON AI AB ADDEN "TI " 
2138 DATA" HMI MI ME IT 7 0 HE TI HI NBI M TI A" 
a KE37154, 127 :RE=-CCPEEKCSTISZIANDIZSI=B) :POKE37154,255: BU=-CPEEK(371S1>ANI 


gl LI=-£PEEK(S71S1>AND1S)=9) :UN=-CCPEEK(37151>ANDB)=M) :OB=-CCPEEKC3FISLDANDA) 
= 
3999 RETURN 









Darauf haben Sie gewartet: Endlich 
ein Buch, das Ihnen ausführlich 
und verständlich die Arbeit mit der 
Floppy VC-1541 erklärt. DAS 
GROSSE FLOPPY BUCH ist für An- 
fänger, Fortgeschrittene und Profis 
gleichermaßen interessant. Sein In- 
halt reicht von der Programmspei- 
cherung bis zum DOS-Zugriff, von 
der sequentiellen Datenspeiche- 
rung bis zum Direktzugriff, von der 
technischen Beschreibung bis zum 
ausführlich dokumentierten DOS 
Listing, von den Systembefehlen 
bis zur detaillierten Beschreibung 
der Programme der Test/Demodis- 
kette. Exakt beschriebene Beispiel- 
und Hilfsprogramme ergänzen die- 
ses neue Superbuch. Mit dem 
GROSSEN FLOPPY-BUCH 
meistern Sie auch Ihre Floppy. 
DAS GROSSE FLOPPY BUCH 
1983, ca. 250 Seiten, DM 49.- 


Jetzt in überarbeiteter und erweiter- 
ter 3, Auflage: 64 INTERN erklärt 
detailliert Architektur und tech- 
nische Möglichkeiten des C-64, zer- 
legt mit einem ausführlich doku- 
mentierten ROM-Listing Betriebs- 
system und BASIC-Interpreter, 
bringt mehr über Funktion und 
Programmierung des neuen 
Synthesizer Sound Chip und der 
hochauflösenden Graphik, zeigt die 
Unterschiede zwischen VC-20, 
C-64 und CBM 8000 und gibt Hin- 
weise zur Umsetzung von Pro- 
grammen. Zahlreiche lauffertige 
Beispielprogramme, Schaltbilder 
und als Clou: zwei ausführlich 
dokumentierte Original 
COMMODORE DIN A3Schaltpläne 
zum Ausklappen. Dieses Buch 
sollte jeder 64-Anwender und Inte- 
ressent haben. 

64 INTERN, 3. Auflage 1983, 

ca. 320 Seiten, DM 69,- 


Die überarbeitete und erweiterte 

2, Auflage von VC-20 INTERN 
beschäftigt sich detailliert mit 
Technik und Betriebssystem des 
VC-20 und enthält ein ausführlich 
dokumentiertes ROM-Listing, die 
Belegung der ZEROPAGE und 
anderer wichtiger Bereiche, über- 
sichtliche Zusammenfassungen der 
Routinen des BASIC-Interpreters 
und des VC-20 Betriebssystems, 
eine Einführung in die Programmie- 
rung in Maschinensprache, eine 
detaillierte Beschreibung der 
Technik des VC-20 und als Clou 
einen Original COMMODORE 
Schaltplan zum Ausklappen! Damit 
ist VC-20 INTERN für jeden interes- 
sant, der sich näher mit Technik 
und Maschinenprogrammierung 
des VC-20 auseinandersetzen 
möchte. 

VC-20 INTERN, 2. Auflage 1983, 
ca. 170 Seiten, DM 49,- 





Englisch  Szepanowski 


Das große 


Floppy- 
Buch 


Disketten-Programmierung 
mit COMMODORE Computern 
für Anfänger, Fortgeschrittene 
und Profis 


EIN DATA BECKER BUCH 


Angerhausen Brückmann 
Englisch Gerits 


64 


intern 


Das große Buch zum 
COMMODORE 64 


mit 
dokumentiertem Schaltplan 


EIN DATA BECKER BUCH 





Angerhausen  Brückmann 
Englisch 


VC-20 


intern 


Betriebssystem und Technik 
des VC-20 


EIN DATA BECKER BUCH 






























































DATA BECKER’s 
MMODORE BU 


Angerhausen  Grünhagen 


64 


für Profis 


Anwendungsprogrammierung 
in BASIC 
für Fortgeschrittene 


EIN DATA BECKER BUCH 





Angerhausen Englisch 
Gerits 


64 


Tips & Tricks 


Eine Fundgrube für den 
COMMODORE 64 Anwender 


EIN DATA BECKER BUCH 





Angerhausen Englisch 
Gerits 


VC-20 


Tips & Tricks 


Eine Fundgrube für den 
VC-20 Anwender 


EIN DATA BECKER BUCH 





IHR GROSSER PARTNER FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstr. 30 : 4000 Düsseldorf : Tel. (0211) 310010 - im Hause AUTO BECKER 


NE m Unser brandaktuelles VC-INFO 3/83 enthält auf 80(!) Seiten detaillierte 
m Informationen über COMMODORE 64, EXECUTIVE und VC-20 

sowie über unser riesiges Angebot an Peripheriegeräten, Software, Zubehör 

und Fachliteratur. Sie erhalten es gegen DM 3,- in Briefmarken. 
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Wer besser und leichter in BASIC 
programmieren möchte, der 
braucht dieses neue Buch 

64 FÜR PROFIS zeigt, wie man er- 
folgreich Anwendungsprobleme in 
BASIC löst und verrät Erfolgsge- 
heimnisse der Programmierprofis. 
Vom Programmentwurf über Menü- 
steuerung, Maskenaufbau, Para- 
meterisierung, Datenzugriff und 
Druckausgabe bis hin zur Doku- 
mentation wird anschaulich mit 
Beispielen dargelegt, wie gute 
BASIC-Programmierung vor sich 
geht. Fünf komplett beschriebene, 
lauffertige Anwendungspro- 
gramme für den C-64 illustrieren 
den Inhalt der einzelnen Kapitel 
beispielhaft. Mit 64 FÜR PROFIS 
lernen Sie gute und erfolgreiche 
BASIC-Programmierung. 

64 FÜR PROFIS, 

1983, ca. 220 Seiten, DM 49,- 


Die überarbeitete und erweiterte 

2. Auflage von 64 TIPS & TRICKS 
enthält eine umfangreiche Samm- 
lung von POKE's und anderen nütz- 
lichen Routinen, Multitasking mit 
dem C-64, hochauflösende Graphik 
und Farbe für Fortgeschrittene, 
mehr über CP/M aufdemC-64,mehr 
über Anschluß- und Erweiterungs- 
möglichkeiten durch USER PORT 
und EXPANSION PORT, sowie 
zahlreiche ausführlich dokumen- 
tierte Programme von der SORT- 
Routine über zahlreiche BASIC- 
Erweiterungen bis hin zur 
3D-Graphik (alle Maschinenpro- 
gramme jetzt mit BASIC-Ladepro- 
gramm!). 64 TIPS UND TRICKS ist 
eine echte Fundgrube für jeden 
COMMODORE 64 Anwender. 

64 TIPS & TRICKS, 2. Auflage 1983, 
ca. 290 Seiten, DM 49,- 


Die überarbeitete und erweiterte 

2. AuflagevonVC-20TIPS& TRICKS 
enthält eine detaillierte Beschrei- 
bung der Programmierung von 
Sound und Graphik des VC-20, 
mehr über Speicherbelegung, 
Speichererweiterung und die 
optimale Nutzung der einzelnen 
Speichermodule, BASIC-Erweite- 
rungen zum Eintippen, umfang- 
reiche Sammlung von Poke’s und 
anderen nützlichen Routinen, zahl- 
reiche interessante Beispiel- und 
Anwendungsprogramme, komplett 
dokumentiert und fertig zum Ein- 
tippen (z.B. Spiele, Funktionen- 
plotter, Graphik Editor, Sound 
Editor) und vieles andere mehr 
VC-20 TIPS & TRICKS ist eineechte 
Fundgrube für jeden VC-20 
Anwender. 

VC-20 TIPS & TRICKS, 2. Auflage 
1983, ca. 230 Seiten, DM 49,- 















CROWN JUBILEE (Fortsetzung aus HC 8/83) 


1862 
1878 
1989 
1899 
1992 
1212 
1929 
1932 
1942 
1959 
1968 
1979 
1999 
„99a 
aa 

2a99 
2012 
2022 
aaa 
za 
2a5a 


WA=4332: GE=39A: GNT0233@ 

WA=4492:GE=242:C0T01938 

WA=4426:CE=169: 60702339 

HUA=4446:DE=122:C0T01939 

WA=4499 : GE=6R: COTN193@ 

HA=4514:GE=49: G0T02330 

HA=4534 :GE=39:COTO193Q 
IFSSCIAANDSS>2ATHENPF=PF+322 : GOSUBEIA:FORG=ATOSAA: NEXT: RETURN 
IFSSCHATHENGE=3R9 : WA=4382:G0T02358 

REM RECHTELEISTE 
IFWA=4132THENGE=9: SS=SS+S0+1 :GOSUB2749: GOTN3242 

Y=PEEK (HR): YY=PEEKCUR+L) 

POKENR. 7+129: POKEUR+, Y'y+128 

FORF=8T05: POKE36978, 15: POKEI3E374, 240 : FORXSATO1R: NEXTA :POKE36874, 259: FORR=AT 


NEXTR : POKE36874 230: FORX=QTO19:NEXTX:NEXTF :POKE36874, 2 
POKEUR, Y:POKENR+1 1% 

U=PEEK (4577) :U1=PEEK(4578) :LI2=PEEK (4579) 
FORWF=ATN29R : NEXTUF 

Q=n 

FReuR-44 


2R6Q "=FEEK(FR) WSFEEKSFR+I} 


2478 
zasa 
zaga 
2ıaa 
2118 
2120 
213@ 
2148 
2158 
2168 
2178 
2188 
2198 
z2aa 
2218 
2220 
78 
2230 
2248 
2250 
2268 
2278 
2282 
2298 
2398 
21a 
232a 
2334 
2342 
2350 
2368 
2374 
2389 
2390 
018 
2499 
2419 
2428 
2430 
2442 
2458 
246Q 
2478 
2482 
2494 
2598 
251@ 
2528 
2530 


BETX$: IFX$="W'THEN2220 
ZU=INT£RNDC1I#2) 

POKEFR, Y+123:POKEFR+1. Y'Y+128 
GETX$: IFX$="I"THEN2229 
FORN=ATN1A:NEXTD 


‚FOKEFR, Y::POKEFR+1 "7" 


POKE36874, 220 

POKE4577 ,U+128: FOKE4578, 111+128:POKE4579, U2+128 
POKE36974,0 

BETX$: IFX$=" WW" THEN2229 

POKE4577 .U:POKE4578.U1 :POKE4579,U2 

Q=9+1: IFR=41THEN2292 
COTN2A5@ ö 
IFSS=1ORSS=2THENSS=SS-1 

POKE36878, 8: PF=PF+BE : CÜSLIBEIA: SO=S0+1:58=35+3N: QOSLUIBZ7AA: RETURN 

POKEFR, Y :POKEFR+1, 7": FOKE4577,, LI: POKE4578, U1 :POKE4579 112: POKE36874, 2: POKE368 


RY=INTERND(1D#2) 

IFZU<CIRYTHENZ29G 

WA=FR : RE=GEHZ 

IFGE=ATHENSN=SOH2 

IFGE=489THENGE=8:50=3 

LOTN195@ 

FOKE36878. 15: FOKE36876,, 249: FORG=ATNS@: NEXTB :POKE36S78.220 
FORG=ATNSY : NEXTE : POKEIESTE , 299: FORL=ATORA:NEXTB 

POKE36976, 18@:FORG=OTN15R:NEXTR:POKEI6S76, A: POKE36973, 0 
GE=R:S0=9:G0T01820 
IFSSCIAANDSSPZTHENPF=PF+30R : GOSLIBEIR: FORG=ATOSAQ:NEXTE:RETLRN 
IFSS<C>ATHENGE=AA :UA=4332 

REM LINKE LEISTE 
IFUR=4182THENLE=R: SS=S3+S0+1 :GOSLIR274A:CNTNIS4A 

V=PEEK(UR) :YF=PEEKCHA+1? 

POKEUR, Y+128:PNKENA+1.7+128 
FORF1=@T05:POKE36879, 15: POKEI6S7A, 240: FORK=ATO1A: NEXT: FOKE36874,, 259: FORR=A 


NEXTR: POKE369374 , 238: FORY=ATO1@:NEXTX:NEXTF1:FOKE3ES?4,2 
POKEUR, Y:FOKEHR+1 17 

U=PEEK (4558) :111=PEEK(4559) : U2=PEEK (4569) 
FORHF=ATO2DA :NEXTUF 

N=2 

FR=LR-44 

V=PEEK(FR}:Y'T=PEEK(FR+1) 

BETXE: IFX$="W"THEN2E2R 

ZU=TNTCRND(1I#23 

POIKE3ES7S, 13: POKEIES74., 

POKEFR, Y+128:PNKEFR+1 

BETA&: IFX$="IE" THEN2632 

FORD=ATNIA:NEXTN 

POKEFR, :POKEFR+1 "7 




















POKE3#6S74, 220 
POKE4558, 114128: POKE4559, 111+128:POKE4SEQ, 112+129 
POKE36874,8 
BETKF: IFXF=" I" THEN2832 
POKE4558. U:POKE4559, U1 :FNKE4568, U2 
Q=Q+1: IFR=41THENZE1A 
GNTN2452 
IFSS=1NRSS=ZTHENSS=SS-1 
ee a: FFEPFHGE? N aa: St b :GOSUR2742 : RETURN 
KE4SER, LI2:POKE3ES?4,@:POKEIES 


RY=INTERNDELIH2) 


a IFZL<CIRTTHENZFOG 


HA=FR:GE=LEH2 
IFGE=ATHENSN=SOH2 
IFLE=SAQTHENGE=R: S0=5 


a KANTN235@ 
a FOKE26S73. 15:POKE3ESTE.. 242: FORG=ATOSR:NEXTO: POKESERTE, 220 


FORG=ATNIA:NEXTE:POKESEST :FORG=ATNEA:NEXTR 
POKE26976, 189 FORS=ATMISA:NEXTR: POKE36876, 0: POKE36878, 0 


A PE=9:50=9:C0701822 
A REM SNNNERSFIELE 
m IFSSIESTHENKSSL 
ee 


FSSZLATHENFRINT"PRPBARRREREN" SS" ÄRNSI 2" RETURN 


30 IFSSCIARTHENERT NT'RRRRRRMRBEZ "SS" RAGEI a" "RETURN 


IFSS=1AATHENFRINT"IRRRAPERDEM F"; RETURN 


a2 SS=1A9:CNTN279A 


PRINT" FOROSTLRTEIIGETRTEISTRTSINTSTRTRTR ER EESONDERSPTELEB" :RETLIRN 


R PRINT" STOERETEESRTERTRENTERRERMESONDERSFIELE" "RETURN 
Sa REN SERIE 


KS=1 THENRETURN 
FÜRDSATDINT<CRHDCLIKSAI+HR 
GETNE 
H=INT“ RNDCLIKSD+ 
K=INT{RNDELIHLZEI+ISE 
POKE36374.K 
ONHLENTN2959, 2969, 2970, 298 
IFK£="E"THEN3@IA 
NEXTD 
GOTn2939 


PNKE36979, 15 


: : FORG=ATN3@ : NEXTG :PRINT"3" :GOTN2928 
ATO3a:NEXTG:PRINT"S":G0TN292@ 
1 :FORG=ATO3A:NEXTG:PRINT"20":G0T02928 
FRINT" SRÜRÜISTTEARTTETEER REAL" | FORGSATOIR :NEXTS:FRINT" 10" :30T02920 
PRINT" FRRERTISTURSUTTRRIRBRBRRBHRRBESOHEEN" ; : FORG=ATO3R : NEXTS:PRINT"SCO" :G0TO2F 


POKE36874, 2: POKES6373: 15 

A=INTCRNDCI YEAR) +1 

IFA=1NRR=2THENFASA 

IFA=30RA=4THEN3A34 

EOTA311A 

PRINT" SRAETTETTRFARRREIINOE" : FORR=ATOSAR:NEHTGSS=-SSHAR:GOTNFLAR 
PRINT "" FÜDEUBTSTETNTETKTNTETETE Br Bu Eee BR SE SI Rt Re pr :FORG=ATNSAR : NEXTG:SS=S$+51:00TO31aR 
PRINT" RAARATRTTHRBBRREL OOTERERERSN" :COSUB2749:C0TOF24A 
IFA<7THENSN=48 : UA=4296: 00102352 

IFR<CISTHENSO=2A:NA=425 

IFA<SATHENSN=1A:HR=: 

B=INTCRNDCLIEII+! 


A IFB=1THENSN=3:WA= 


IFR=2THENSO= 

IFB=ITHENS! R=4314: 2070 
IFXS=1THEN2S39 
POKE36878; 15 


:JeINTERNDCLIEIRAD+L 


IFI=10RJ=2THENL=41852 


a 1FI=30RJ=4THENL=4206 


IFI<SANDJ>4THENL=4259 
IFIC1SANDI>FTHENL=4294 


m IFICSAANDI>L4THENL=4333 

















3260 IFICSARNDI>ZSTHENL=4F22 

3270 IFI<CFAANDT 

3239 IFICARANDIIEITHEHL=4472 
IF.T>SITHENL=4514 


A FÜRL=ATDE 
a FNRI=4514TNA1E2STER-44 
IFL=6ANDIL=1THEH3499 
POKEI. CPEEKCI)+128) :POKEI+1 . (PEEK(I+1)+128) 
POKE36374. INT(1/22) 
FORU=ATN2A: NEKTL 
379 POKEI. <PEEK<II-128) :POKEI+1, CFEEKCI+1)-128) 
Sa MEKTI 
NESTI 
HA=L 
IFWA=4514THENGE=48 
IFUA=447QTHENGE=SA 
IFUR=4426THENLE=160 
IFHA=43SZTHENGE=3AG 
IFWA=433STHENG 
IFUA=4234THENGES: 
IFWA=425ATHENDE=R: 
IFUR=4206THENC 
a IFUR=4162THENGE=R! 
3399 2NT0235R 
351@ IFXS=1THEN2S39 
33520 POKEI6978, 15 
3530 I=INTERNDCIIFLRD)- 
2540 IFJ=1NRI=2THENL=4182 
3558 IFI=30RI=S4THENL=422€ 
3569 IFI<SANNT>4THENL=4270 
257@ IFJI<ASANDIIFTHENL=4314 
3590 IFI<S@ANDI>14THENL.=4353 
359a IFICSAANDTFSITHENL=44R2 
Seaa IFICAANDIT>ASTHENL=4445 
S61a IFICSAANNIISITHENL=4499 
3620 IFI>BITHENL=4534 
3630 IFSSCIAANDI>APTHENL=4422 
264A FORU=ATOE 
365@ FORI=4534T04122STEP-44 
2669 IFU=6RNDL=ITHENI7IA 
26?@ POKEI. <PEEK“1)+128) :POKEI+1, (PEEKCI+1)+128) 
368A POKE36874, INT(1/2R) 
3639 FORUSATN2A:NENTI 
27aa POKEI.,<FEEK“I?-1283:POKEI+1. (PEEK(I+1)-128) 
3719 NEXTI 
3729 NEXTU 
373@ WA=L 
3749 IFUR=4534THENLE=3A 
2375@ IFHUR=449ATHENCE=EA 
3769 IFLA=4446THENDE=12R 
3779 IFUA=4492THENGE=24R 
378A IFHA=4353THENLE= 
3794 
sag 
seja 
3922 IFUA=Z41SITHENGE=R: 
333a CNTN195A 
2342 FORRK=1TN59 
3350 POKE36378,415 
3368 IFM4CRKI=ATHENFF1A 
3878 IFM4SRKI=1THENCLSUBIITA:COTNII2A 
388392 IFM4CRKI=2THENGNEUR3I8R:RNTN3920 
3992 POKE3ES7E.M4CRK) :POKE36S7S.,M4CRK) 
aaa GOSUBSP4R 
3919 REM 
322@ NEXTRK 
39239 POKEIES73,A:POKER6376.9:FOKEI6875, A:RETURN 
3249 W=R: IFRK=27ORR THENU=1 
335@ FORE=ISTOSSTER-1:FOKEIESFS, E:FORLI=ATOM:NEXTIICHESTE 
2260 FORN=9TN1A:NEXTT:PNIKEIES?E. A: POKE3E375,A:RETURN 
2979 FORR=ATN15@:NEXTR:RETURN 
3282 FORR=AT0259:NEXTR:RETURH 























Chip Out 


für den Dragon 32 


Break-Out-Spiele wurden schon für viele Computer geschrieben. Homecomputer 
bringt Ihnen in dieser Ausgabe eine neue Version, die mit dem Dragon 32 entwickelt 
wurde. 


Bei Chip Out benötigt man zum | ins Spielfeld zurückschleudert. Neue Bälle erhält man durch Drücken 
Spielen einen Joystick. Mit diesem | Ziel des Spieles ist es, möglichst viele | des Knopfes am Joystick. 

steuert man einen Schläger, der die 5. | Punkte durch Herausbrechen von 

zur Verfügung stehenden, Bälle jeweils | Mauerstücken zu erreichen. 


10 REM HHHsHsannner 

20 REM CHIP OUT 

30 REM Hr 

40 GOSUR 286 

50 BX=BX+(JOYSTK(6)<20 AND BX>3) -{JOYSTK(@) >40 AND BXX27) 

60 IF BX526THENBX=26 

7@ IFBX<1THEN BX=1 

86 PRINTS416+BX,B$5 : RETURN 

90 GOSUB 56 

100 TP=BP+ED: IF TP>1563 THEN 176 ELSE IF FEEK (TR)=128 THEN FOKE BF,128:FOKE TP,131:BP=TP:GOSUR 
50: 60T0 96 

110 GOSUR 50 

120 IF PEEK(TF)=245 THEN ED=ED+2:G0T096 

136 IF FEEK (TP)=146 THEN BD=-32+(RBD=31)-(BD=3 IF SC-MX>&6 THEN MX=SC:G60SUR 459:G0T0 90 ELSE G 
OTD9a 

140 IF FEEKA{TP) 143 AND PEEK{TP)<236 THEN FOKE TP,128:5SC=SC+H1:FRINT8489,""5:FRINT USING "##4#"55 
C;:SOUND 160, 1:BD=32-(ABS(RD)=31)+(ABS(BD)=33):G0TO 96 

150 IF PEEK {TP)=255 THEN BD=(-BD) +2%(RDi-32) -2* (BD}>-32) :G0T096 

166 IF FEEK (TP)=256 THEN BD=EBD-2:607096 

170 SOUND 3,1®:FOKEBP, 128: BL=BL-1:IF BL=@ THEN 3960 ELSE FRINTSS69,""5:PRINT USING "#"} BL} 
186 PRINT 8416, STRING$ (32,128); 

196 GOTO 230 

206 CLS%: CLEAR200: PRINTS0, STRING$ (32,255) 5:FORI=6 TO 352 STEF 32:PRINTSI,CHR$ (245) 5:FRINTSI+I1,C 
HR$(256)5 NEXT I 

210 GOSUR 450 

220 SC=6:BL=5 

230 BP=1217+RND (10) :BD= 

240 FRINTS483, "PUNKTE"}:PRINT8S62, "BAELLE"S:FRINTSS69,""5:FRINT USING"#"SEL5 

256 B$=CHR$ (128) +STRING$ (3, 146) +CHR$ (128) :BX=16: FRINTS416+BX,B$5 

260 GOSUR 56: IF (FEEK (65286) AND1)>G THEN 266 

270 GOTO 90 

280 CLS:FRINT"###+ CHIF OUT x*x*" 

296 PRINT:PRINT"CHIF OUT IST EINE NEUE VERSION" 

506 -FRINT"DES BEKANNTEN "BREAK OUT’." 

316. PRINT"DIE STEUERUNG DES SCHLAEGERS" 

326 FRINT"ERFOLGT MIT JOYSTICK @." 

330 FRINT"IHNEN STEHEN 5 BAELLE ZUR" 

348 PRINT"VERFUEGUNG.DIESE WERDEN AUF" 

356 PRINT"KNOPDRUCK AUSGEWORFEN." 

360 FRINT:FRINT"DRUECKE TASTE !" 

3760 IF INKEY$="" THEN 376 

380 GOTO 206 

396 CLS 

406 FRINT "SIE ERREICHTEN "SC"FUNKTE" 

410 F=&:PRINTS448, "NOCH EIN SPIEL ?" 

4260 Z$=INKEY$: IF Z$="" THEN 426 

430 IF Z$="N" AND F=& THEN FRINTS416,"SIND SIE SICHER":F=1:60T0428 ELSE IF Z$="N" THEN CLS:END 
446 GOTO208 

456 FORI=55 TO 1651 STEP 32:FRINTSI,STRING$ (30, (143+(1-1)/2))5 

46@ NEXTI: RETURN 

470 END 





DRAGON 


Säulen 
für den Dragon 32 


Das Spiel ”Säulen” zeigt, daß man mit dem Dragon 32 und seinem einfachen, aber 
vielseitigen Basic, interessante, graphisch ansprechende Programme entwickeln kann. 


Mit Hilfe eines Cursors, der mit den | wieder herabzudrücken. Gelingt dieses 
Pfeiltasten gesteuert wird, muß der | einmal nicht, endet das Spiel. 
Spieler versuchen aufsteigende Säulen | Eine Punktzahl, entsprechend dem 


Schwierigkeitsgrad, wird ausgegeben. 








54 Homecomputer Oktober 1983 


3 REM KHK 

26 REM *** SAEULEN *r%* 

30 REM HR 

46 FCLEAR8:CLSO:FMODE4, 1: FCLS@ 

50 LINE (25,175)-(198, 188) „FSET:LINE- (76,96) „FSET:LINE- (268, 26) „FSET:LINE- (150,96) „FSET:LINE>1166 
108) ,PSET:LINE- (25,175) ,PSET 

66 FAINT (110,116) ,5,5:FMODE4, 5: SCREEN1,1:PCLSO 

7% LINE (66,65) -(196, 136) „PSET,B:FAINT (62,67) ,5,5 

8@ FOR I=1 TO 48 

970 X1=RND (255) : X2=RND (255) : YI=RND (191): Y2=RND(191):LINE(X1,Y1)-1X2,Y2) ‚FSET:SOUND255, 1:NEXTI 
106 DRAW" BM72,845 005 S9; LSDSRSDSLSBR1@U1ORSDSLSRSDSBRSU1OD1ORSU1GOBRSD1ORSBRSRSLSUSRSLSUSRSBRSDI OU 
16F10U10" 

110 DRAW"EM85,775C@5 L1DIRIUIERSDIR1UIL1" 

126 FLAY"T16VS102GFEDDEDGFEDDD" 

130 CLS:FRINTS48, "ANLEITUNG" FRINT 

146 FRINT"MIT HILFE EINES °’CURSORS’" 

150 PRINT"MUESSEN SIE VERSUCHEN, DIE" 

166 FRINT"AUFSTEIGENDEN SAEULEN HERUNTER-" 

17@ FRINT"ZUDRUECKEN.DAS SPIEL IST BEENDET”; 

186 FRINT"WENN EINE SAEULE DEN OBEREN RAND"; 

196 FRINT"ERREICHT HAT." 

260 FRINT"DER "’CURSOR’ WIRD MIT HILFE DER" 

218 FRINT"FFEILTASTEN GESTEUERT !" 

226 PRINT: INFUT"SCHWIERIGKEITSGRAD (1 -ODER Z)"5L 

230 IF Li>1 AND Li>2 THEN226 

240 FLAY"T2SOVEL" 

2560 CLS5:5=0: XG=20: YG=2 

266 FORI=& TO S1:FOKE(1624+1) ,175:FOKE (1024+1+486) „, 191:NEXTI 

27% FOR J=1 TOD 16:W(J)=1024+479+3*J:NEXTJ 

28@ FORI =L TO 56 : FORK =1 TO 2 

298 FORM=1 TO2:FORN=1TO2 

T6@ IFI“11 THEN Z=I ELSE 16 

310 FORJ=1 TOZ 

326 W=eW(J)-32 

339 IF FEEK(W<>1453 THEN FOKE W,191:W(J)=W:IF FEEK(W-32)=17STHEN 428 
340 GDSUBS9G 

350 5=5+5#Z:NEXTJ 

366 IF I>1 THEN GOSUB 596 

3760 NEXTN 

53860 IF I1>3 THEN GOSUR 598 

390 NEXTM 

46G IF 1:8 THEN GOSUBS9G 

416 NEXTK,I 

426 FOR DL=& TO180:NEXT DL 

436 FMODE4,1 

448 FOR F=1 TO 3:SCREENi,1:FLAY"OSBAGFE" : FORDL=@T010@: NEXT: SCREENI ,@: FLAY"ÖSEFGAR":NEXTF 
456 CLS4:FRINTE32," IHRE PUNKTZAHL : "55 

466 IFS«=HS(5) THEN GOTO 536 

478 FRINT 

48% INFUT"WIE IST IHR NAME ":N$(5) 

498 HS(5)=S:FOR J=5 TD 2 STEF-1 

500 IF HS(J)«=HS(J-1) THENS2& 

510 T=HS(J-1): T$=N$ (J-1) 2HS(J-1)=HS(J) EN$(J-1) NE LTD) EHSCJI=STINE DI ST$ 
526 NEXTJ 

530 FRINT:FRINT"PUNKTESTAND: "= PRINT 

546 FORI=1T05 

550 FPRINTN$ (I) 5 TAR(28) 5HS{I) :NEXTI 

566 FRINT8454, "NOCH EIN SPIEL (J/N)"5:INFUT O$ 

578 IFQ$="J"THEN13O 

586 END 

596 FOKE (1024+XG+32*Y6) ‚207 

600 XG=XG+3* (PEEK(343)=223 AND X6>3 AND FEEK(1821+X6+32# (YG-1))£ 191) -I* (PEEK (344)=223 AND X6<28 
AND PEEE (1627+X6+32# (YG-1))@>191) 

616 YG=YG+2# (PEEK (341) =223ANDYG>2) - (PEEK (342) =223ANDYG< 14) 

626 IF FEEK(1024+X6+32*Y6)=191 THEN K=SINTCCXG+1.1I) /DI EWR) SWR) +32 
636 IF FEEK(1024+XG+32*YG6)=191 THEN FLAY"OZBAG"ELSE FLAY"O4CC" 

646 FOKE (1624+X6+32*Y6) „ 143:RETURN 















tabiles, 
nodernes Gehäuse 


Professionelle 
schreibmaschinen- 
EIICUTTG 

für hohen 
Schreibkomiort 


Steckmodul- (RON 
und Erweiterung 
buchs 


Funktion: 
sicherheii 
jeder Taste fü: 
20 Millioner 
Anschläg: 


- LEICHT VERSTÄNDLICH 


Der DRAGON 32 ist ein lebender Beweis dafür, daß 
man kein Experte in „Computer-Chinesisch” sein 
muß, um ein Computer-Fachmann zu werden. Zu- 
sammen mit ihm erhalten Sie eines der am einfach- 
sten zu verstehenden Programmierhandbücher für 
Basic (der am weitesten verbreiteten Programmier- 
sprache der Welt) das je für einen Heimcomputer 
geschrieben wurde. 

Jeder Schritt, jede Erläuterung ist auch für Anfänger 
leicht verständlich. In wenigen Minuten können Sie 
bereits ein einfaches Programm schreiben, in weni- 
gen Stunden werden Sie fasziniert sein von den 
Möglichkeiten, die sich Ihnen bieten. 

Im Kurs-Handbuch sind 60 Programme eingebaut, 
die Ihnen eine neue Welt erschließen - mit Hilfe des 
NEUERE RESTUERSEILGHED]T.NEIO RR 


- SOFORT EINSATZBEREIT 


Sie müssen nicht gleich mit dem Programmieren 
anfangen. Es gibt ein ständig wachsende Anzahl 
fertiger Programme auf normalen Rekorder-Kasset- 
ten und Steckmodulen. Sobald Sie Ihre ersten Pro- 
gramme schreiben, können diese bequem auf nor- 
EL LERSÄLCH WESTERN 

Dazu einfach Ihren Kassettenrecorder mit dem 
DRAGON 32 verbinden und mit jeweils einem einzi- 
PIRCEHSHEIGHESIEWATENT WAT ENNE NS 
schen Möglichkeiten eines Familien-Computers! 


- BRINGT FARBE INS PROGRAMM 


Neun Farben bringen Leben auf den Bildschirm. 
Die äußerst leistungsfähige Programmiersprache 


Microsoft Extended Colour Basic ermöglicht es, mit 
einfachen Befehlen Vorder-und Hintergrundfarben 
zu bestimmen, einen einzelnen Farbtupfer auf den 
Bildschirm zu bringen oder auch die ganze Fläche 
EUKZAN ETC R 


- EIN GRAFIKER 


Eine besondere Stärke des DRAGON 32 sind seine 
einfach zu handhabenden, erstaunlichen Grafik-Fä- 
higkeiten: 8 Grafik-Bildschirmseiten, 5 verschiede- 
ne Auflösungsgrade von 512 Textstellen (16x32) 
bis zu 49152 Bildschirmpunkten (192x256). Mit 
einfachen Grafik-Befehlen können Sie Linien, 
Rechtecke, Quadrate, Bögen, Ellipsen oder Kreis 
zeichnen; oder Sie entwerfen eine Gestalt und än- 
dern dann deren Maßstab von 1/4 ihrer Größe auf 
15fache Vergrößerung! Die Grafik läßt sich zusätz- 
lich auch noch über vier rechtwinklige Positionen 
drehen. 


SE INTCTANK 


Volle 5 Oktaven stehen Ihnen für Musik und Sprach- 
synthese zur Verfügung. Melodien sind leicht zu 
programmieren und Klangeffekte beleben die Hand- 
lung in Programmen. 

Natürlich können Sie mit dem DRAGON 32 auch 
komponieren: Sie geben Noten, Vorzeichen, Tempi 
etc ein - der Computer spielt Ihnen das komponierte 
Lied vor. 


- FLEXIBEL UND LEICHT ZU BEDIENEN 


Die Programmiersprache Microsoft Extended Co- 
lour Basic bietet dem Programmierer unzählige Ge- 


staltungsmöglichkeiten. Ein komfortabler Zeilene- 
ditor gestattet zügiges Korrigieren von Program- 
men. 


- EIN ANPASSUNGSFÄHIGER COMPUTER 


Das Design des DRAGON 32 ist so ansprechend, 
daß er sich überall sehen lassen kann. Aufgrund 
seiner hervorragenden Fähigkeiten kann er auch in 
der Schule oder im Büro eingesetzt werden. Der 
DRAGON 32 stellt sicher, daß Sie mit der schnellebi- 
gen Welt der Microcomputer Schritt halten. 


- EIN QUALITÄTSERZEUGNIS 


Der DRAGON 32 besitzt eine professionelle Schreib- 
maschinentastatur, über die Sie die Programme, 
Spiele und Befehle an den Computer eingeben. Die 
LESER UHR RTNESCHEALHEINERSTH 
oft eine Schwachstelle - ist für starke Beanspru- 
chung ausgelegt. Die Funktionssicherheit jeder Ta- 
BCHESEUK N BESSER NEN WEIHER Fe 
Mit den Zeilen-Editor bietet der DRAGON 32 die 
Möglichkeit, Programme besonders schnell und 
leicht zu schreiben. 


- VIELSEITIG UND AUSBAUFÄHIG 


DB NO RR ARSSHEHUEICEUSSUNERCHTTE 
viele Zusatzgeräte zum Ausbau des Systems: 

@ 2 Eingänge für Joysticks (Spielhebel), ideal für 
NELRSETH 

® Anschlußbuchse für handelsüblichen Kasset- 
tenrekorder zum Speichern Ihrer Programme auf 
normale Kassetten. Eingang für ROM-Steckmodule, 
die unmittelbar und schnell gelesen werden. 





Ansprechendes 
flaches Design 








Reset-Knopf 


Joystick/Spielhebel- 
Anschlüsse 


Centronics- 
Druckeranschlufßs 

















© Centronics-Schnittstelle zum Anschließen eines 
TOTER ESCH UOTE TUE ERSCHEIST AG IE 
en können. 

© Farbfernsehausgang und zusätzlicher Monitor- 
Ausgang, damit sie Fernsehgerät oder Monitor oder 
eides gleichzeitig anschließen können. 


- WÄCHST MIT IHREN ANSPRÜCHEN 


© Sie können die Speicherkapazität (RAM) Ihres 
RAGON 32 auf 64 K erweitern lassen. 

® In Kürze kommt das DRAGON-Floppy-Disk-Sy- 
stem mit Steuermodul und bis zu zwei Disketten- 
BEIN NESCHE 

LEN BE RERTIR EN EHE EUSTEICHRGERH EG 
nen die Wahl folgender Erweiterungen gibt: 

- Disketten-Betriebssystem (anstelle des Steck- 
moduls) 

- RS 232-Schnittstelle für Netzwerke 

- Zusätzlicher 8-Bit-Microprozessor zur Nutzung 
einer Vielzahl von Programmen für Beruf und Be- 
trieb. 





- SEINE PROGRAMME (SOFTWARE) 


Viele der bekanntesten Computerspiele der Welt 
sind als fertige Programme für den DRAGON 32 er- 
hältlich. Von Schach über Kämpfe mit Geistern bis 
hin zu fesselnden Abenteuern. Die ganze Familie 
kann spielend die Computerwelt entdecken und mit 
sinnvollen Programmen, wie Budget, Adressen, 
persönliche Finanzen und anderen Programmen al- 
le Möglichkeiten moderner Computertechnologie 
ohne viel Schwierigkeiten nutzen. Die leicht ver- 
ständlich geschriebenen Anleitungen machen den 


Einstieg in die „Computerei” kinderleicht. 


- EIN EUROPÄISCHER COMPUTER 


Der DRAGON 32 wurde in Swansea, im Westen 
Großbritanniens von einem Fach-Team für Compu- 
terforschung von DRAGON Data Ltd. entwickelt. Die 
ganze‘ Erfahrung -jahrzehntelanger Entwicklungs- 
und Produktionstätigkeit steht hinter dem DRAGON 
32 und stellt dadurch seine kontinuierliche Weiter- 
entwicklung sicher. 


TECHNISCHE EINZELHEITEN 


@ Hochmoderner Microprozessor 6809E 

@ Serienmäßiger Anwenderspeicher (RAM) 32K, 
erweiterbar auf 64K. Noch 26K frei verfügbar bei 4 
Seiten-hochauflösender Grafik. 

@ Serienmäßig die erweiterte Basic-Version: „Mic- 
rosoft Extended Colour Basic” (Microsoft Basic ist 
EIERN EN ISCH ESTATE NR 

DIE VORZÜGE: 

- hochentwickelte Grafikbefehle wie SET, LINE, 
DRAW, CIRCLE, PAINT 

- komfortable Ausgabe mit PRINT&, PRINT USING 
- umfassende Ton- und Geräuscherzeugung mit 
SOUND, PLAY 

NO EU AH BICHART EST ERS EG 
ders 

- volle Edit-Funktion mit Insert, Delete, Change, 
usw. 

@ BILDSCHIRM-AUSGABE: 

- 9 Farben 

- 5 verschiedene Auflösungsgrade von 512 Text- 
stellen (16x32) bis 49152 Bildschirmpunkten 


Bin 


Buchse für 
Kassettenrekorder 


Anschluß für 
Fernseher (UHF) 


Netzgerät-Eingang 


Ein/Aus-Schalter 


Anschluß für 
Farbmonitor 






(192x256) bei hoher Auflösung 

- Heimfernsehgerät (UHF) und/oder Farbmonitor 
@ TASTATUR 

BD ESEHT GW ERSTE RETTEN EIGNEN ENG 
sie EDV-Eingabeterminals verwendet wird 

- weicher, angenehmer Anschlag 

- hoher Schreibkomfort 

- Funktionssicherheit jeder Taste für 20 Millionen 
LUBUERTE n 4 
@ EINFACHE STECKANSCHLUSSE FÜR: 
- 2 Joysticks/Spielhebel 

- handelsüblichen Kassettenrekorder 
BEIICH)) 

- Drucker (Centronics-Parallel) 

- Steckmodule 

@ 190-seitiges „Basic-Programmierhandbuch” 
und Anleitung im Preis enthalten. 


(einschl. 


Computerversand H. Schädel 


Albert-Schweitzer-Straße 1 
3436 Hessisch Lichtenau 


Tel.: 05602-4503 
Preisangaben incl. MWSt., Porto und Verpackung. 
Lieferung gegen Scheck oder per Nachnahme. 
Angebot freibleibend. 





Ihr DRAGON 32 kostet nur 798; DM 


Ausführliche Liste mit Informationen 
über Software-Module und- Kassetten 
liegt jeder Bestellung bei. 


VC-20/64 Software Geschäftsprogramm 
@® Animation, Exbasic Forth usw. @@ 
@® Info 2.- 06321/31992 Hemmer @ 
@eMühlweg 54.6730 Neustadt 19 @ 





Wer in Deutschland ist günstiger? 
Die neueste Soft- und Hardware aus 
England (auch Bücher) für 2X 81 
VC-20, ZX Spectrum, CBM 64 und Dragon 
Katalog 11/83 gegen 1,80 DM in Brief- 
marken. T. Wagner, Softwareversand, 

Postfach 112243, 8900 Augsburg. 


TI-99/4A: Superspiele in 
Action, Spannung, Spass 
2.B.: Superfrog(ger): nur 
Superarcadespielee nur 50,-DM. Die 
Spitzensoftwarel!!! ( ab 5- DM ). 
Info gegen 80 Pfennig-Marke: B. Walter 
Pfortengartenweg 57, 6230 Ffm.-80. 


Ex-Basic 
Topgrafik 
15,-DM, 11 


ZX-Spectrum Supersoftware 
Info 80 Pf-Freiumschlag, Dipl. Ing. 6. 
Verse, 465 Gelsenkirchen, Grüner Weg 45 


.e..„..—..SO2o..,.—. 
© NVC-20 Spitzensoftware VC-54 @® 
® Rom-Spiele@Act.Sp.@Advent- @ 
© Sp.® Utilites@ sehr günstig! @ 
® Der Hit: Einsteigerhilfe-Paket 
@ (30 Prg.+Buch mit Tips& Tricks 
@ 48.-)@Komf.Text+40-Z -Bildsch, 
® integr.!35,-@Liste 1, 30Briefm. 
@UTN-Soft, Krabler 24, 43 Essen 12 
.eo‚....—..—0.0.,—c..,..—.. 





Spitzen Software für  TI-99/4A 
fast Gratis! Gegen RP (1,30) gibt 
es die Liste bei Stefan Verhaaren 
Ripshorsterstr. 309, 4300 Essen 11 


Suche TI Club und ZX-81 Programme. 





@2X-SPECTRUM, 16K: 3 Super-Action- 
Games CITY DEFENDER, BLITZ, SUPER- 
MUNCHER. Tolle Grafik u. Soundeffekte. 
10- DM inkl. Cass. u. Porto. Stumpp, 
Weingartenweg 13, 6951 Schefflenz.@ 





COMPUTER-CASSETTEN 
mit BASF-LH-Band, 
je 10 Stück 
HIFI-MUSICGASSETTEN 
mit AGFA-super-fe. 

je 10 Stück C 90 34 DM 
Andere Mengen/Längen auf Anfrage 
Christomenia-Cassettenstudio 

Gartenstr. 11, 3584 Zwesten. Tel 
05626/281, Versand per Rechnung. 


C 10 18 DM 
C 20 19 DM 


C 60 27 DM 


.e.e..,—.. .— 0... 
@Software Total: 100% MCode Prg 
@aus England, über 2000 Titel 
@für Oric, Spectrum, Dragon, ZX- 
@81,VC 20,CBM 64,TI 99,Atari.Auch 
@ Hardware, Drucker, Joysticks, z.B. 
@Oric-1 650.- DM, Gratis Info 
@ Freiumschlag an: Windmill Software 
@Postfach 1563. 3170 Gifhorn 
.ve.e.a.e„a.,.—.,—,O.0.,o,.— 





TI-99/4A @ TI-99/4A @ TI-99/4A @ 
Extendet-Basic-Modul DM 211,- 
Zusätzlich Porto und Verpackung. 
Weitere Information: Tubach Versand, 
Postfach 1667, 7518 Bretten 





ZX 81 + 16K-RAM + Bücher zu verk. 
6 Monate alt, DM 250, Tel.: 0941/44610 














2X Spectrum - ORIC-I 
Software und Literatur gegen 1,- Rück- 
porto von MAHR & MÜLLER Computer 
Westring 32, 6086 Riedstadt 5 





©® The best news of the VC-20 @@ 
Wir haben über 100 Romprogramme 
und unzählige Programme für die 
Grundversion 3K, 8K und 16K 
Näheres ab 18 Uhr unter 0203/403107 





VC-20, VC-64, ZX 81 und ZX Spectrum 
Programme ab 30,- DM, (Listing) 2.- DM 
Kassette Liste u. Gr. Progr. gegen Rückp. 
M. Holzmann, Postf. 401. 425 Bottrop 





VC-20@ über 300 PGM.® 1A Software 
Die neusten Spiele®@ Liste gratis @ 
R. Müller, Reiherw. 8, 3004 Isernhagen 





TI 99/4A Ext. Vokabeprogr. 20,- DM 

Late in o. Englisch / ca. 150 Vok. 

maximal 4 Bedeutungen / definierte 

Umlaute / A. Volke, Kirchplatz 9 
4772 Bad Sassendorf 


TI 99/4A 
Grafik und Action für nur 7,50 DM. z.B. 
Roulette. Kniffel. Liste gegen 0,80 DM 
QUINT. Lessingstr. 24. 8411 Lappersdorf 


99/4A-Software Info  (Freiumschlag) 
Finke, Faaker-Str. 15, 62 Wiesbaden 


®“evc.20@®@ 20  Spielhöllenspiele 
45,- DM/10-fach schnelle Kassette / 
Hardware usw. abzugeben, Duisburg- 
Homberg, Tel.:02136/33522, nach 17h 


VC-20 Superprogramme 5 Stck. 30 DM 
Große Auswahl , Telefon: 0203/725592 


Verk. u. Tausche VC-20 Programme 
M. Schulte, Van-Gogh-Str. 8, 6500 Mainz 





99 Super-3D-Spiele! @Datei® 
©®® Grafik @ ab 1,- DM@Info 1,-DM 
©® C. Wurzer. Grüntenweg 14@85 Nbg. 





@ 2X 81 @ Actionspiele @ u.a. Invaders 
Chess @ Info 2,- @ Tel. 06102/4249 @ 


Software für ZX 81 / TI 99 / VC-20 
Liste gegen Freiumschlag bei CIG, 
Gandhistraße 2, 5300 Bonn 1 





An alle TI 99/4A-Besitzer 

Ufo-Spiel-Programm mit Listing 
und Beschreibung. Jede Zeile ist 
genau erklärt. Idial für Ein 
steiger und solche, die den 
Ablauf verstehen wollen. 

Kassette DM 27,- Walter Pöppel 
Böhmerwaldstr. 8. 8401 Hagelstadt 








@Imagine Software - Spectrum 16K 
@Arcadia - Das superschnelle Raum- 
spiel, voller Gefahr. 

@Ah Diddums - Das Abenteuerspiel! 
Kämpfen Sie Ihrem Teddy den Weg frei! 
@Schizoids - Ein tolles 3D Spiel - 
Können Sie Ihr Raumschiff retten? 
@ Jumping Jack - Ein irres Spiel! 
Vol Spaß und Verrrücktheiten! 
Jede Cassette 29,80 DM, Versand nur per 

Nachnahme 
Computer-Software-Versand 
L.H. Manero Sychold 

Postfach 730165 @ 4630 Bochum 7 








Achtung VC-20/64 ! 
Wir haben alles für Ihren Com- 
puter !! Über 700 Programme aus 
allen Bereichen ! Schon ab 0,50 
1,2 Internationale Soft- 
aus allen Ländern Progra- 
mierhilfen.... Musikerprogramme, 
Hochauflösende Grafik... Text und 
Dateiverwaltung. Diskettenhilfen 
Superspiele.. und.. und.. und..... zu 
‚Superpreisen!! Programmgenerator 
schon ab 20.-! Supergünstige Pro- 
grammpakete ab 5.-. 10.-. 15.- DM 
(Interessante Zusammenstellung) 
Textverarbeitungsprogramme ab 
4,-"" 24 Stunden Versandservice! 
Für Kataloge und Programme! 
Exklusiv bei uns! Statistik L. 
Il! Das Spitzenprogramm! Pro- 
writer 20/64! Lehrprogramme 
aus allen Fächern! Achtung!! 
Das Superbuch ist da! VC 20/64 
Wie Supercomputer unter der Lupe 
Mit über 200 Seiten Informa- 
tion und Programme / Tips und 
Kniffe, welche auch der Anfänger 
sofort verwenden kann! 
Mehr darüber in unserem Katalog 
Fordern Sie heute noch unser 
Superinfo 9/83, mit vielen Tips 
und Tricks an! Es lohnt sich! 
(Rückporto) Schreiben Sie heute 
noch an Fa. Schlüter, Software- 
Diskont, 4370 Marl 


Faszination des Spectrum-Spielens@ 


Tempest (48K), Joystick DM 45,- @ 
Centipedes (48K), Joystick DM 39, 
Startrek (48K) nur DM 22, 
Viele weitere Spiele, auch 16 K, 
sind erhältlich. Bestellung und/ 
oder Info (geg. Freiumschlag) bei 
"EMM Software” Boris Baginski & 
Peter Stieda, Sponeckstraße 8, 
8000 München 60 
auch ZX-81-Spiele erhältlich 


Internationale CBM-64 Software 
Größte Auswahl, neuste, beste Programme 
Kleinste Unkosten, Tausch, Verkauf 
@ Info: 2,-DM-Marke: F. Sprenger, 4300 
Essen, Brassertstr. 18, 0201/796559 








CBM .64 Autostart: Alle mit Hilfe 
von AUTOSTART abgespeicherten Prog. 
starten nach dem Laden sofort: 
Zusätzliche Verriegelung von 
Stop/Restore möglich (nur für Cas- 
sette) DM 98,-: Verbessserte Scrollrou- 
tinen in Datazeilen DM 29,-: Liefer- 
ung auf Cassette per NN: Kellermann, 
Angermunder Weg 4, 403 Ratingen 
Telefon: 02102/470909 





VC-20 Prpg. aller Art, sehr billig 

& gut, inkl. Qual-Cass. & Versand 

@ 20 Prog. GV DM 30,- @ 20 Prog. aller 

Art DM40,- @ 15 Prog. & 8/16KBDM50,- 

Schnellste Lieferung von H. Wolf, 

Tangstedter Str. 5, 2080 Pinneberg 
Info Tel.: 0410/27293 





An alle VC-20 Besitzer 
Wollen Sie Ihre Programmsammlung 
erweitern? Dann sofort Info (1,-DM) 
in Briefmarken) anfordern bei: 
Horst Mierendorf, Bornebreite 13 
3413 Moringen 2 





©®® 3 Spiele nur 10- DM @@®@ 
für jeden Sinclair 0921/98969 





99/4A @® Und geht ab @ 99/4A 
Die total irren Ext. Bas. Spiele 
für den TI 99/4Al Jetzt die 
Chanche nutzen und sofort Super- 
Info ordern! Gegen 80 Pf Marke bei 
®®® J. Schubert, Londonstr. I @@®@ 
99/4A @@ 3400 Göttingen @@ 99/4A 





ZX Superprg.: Frogger, Pucman 10,-DM 
Toolkit, Mcoder 15,-DM, Gr. Info bei: 
Engstler, Dinghoferstr. 10, A. 4020 Linz 


Riesenangebot an Hard- u.Software 
(Programme, Module) für TI 99/4A, 
CBM 64, Info gg. DM 1,-: CSV Riegert, 
Schloßhofstr. 5, 7324 Rechberghausen. 


Super VC 64 Software. Die neusten 
Masch.-Games. Gleich Liste anfordern, 
gegen 1,- DM von B. Schild, 
Fr.-Ebert-Str. 32, 6234 Hattersheim 





VC-201 Die besten Spiele für GV! 
17 Spiele 15,- DM, auch Tausch, z.B. 
Pac Man, Scramble, Superbillig ab 
0,50 Pf. Info 0,80 Pf, an T. Langens, Sche- 
venhofer Weg 44 d, 56 Wuppertal 1 


© Unglaublich! 
TI 99/4A Progr. in Ext.-Basic. 
löst mathemat. Gleichungen in 
fast allen Formaten mit einer 
Unbekannten. Wo ein Mensch 
Stunden rechnet, braucht dieses 
Programm keine Minute! Cass. für 
15,-DM bei A.Scheer,Möhnestr.1 
33 Braunschweig, Bar o. V-Sch. 
.e...,.—.—.—0.0.,.,. 





ORIC I @ ORIC | @ ORIC | 
Originale Prog. aus England! 
ca. 100% Maschine Code Software 
z.B. Centipede, Hopper & v.mehr 
Jede Cassette DM 39,1 
Freiumschlag + DM 1,- (Markı 

A. Quinn "Windmill Software" 
PF-1563, 3170 Gifhorn 


Spectrum .. Spectrum 
Originale Programme aus England 
ca. 100% Machine Code Software 
z.B. Maze Death Race, Ghost Hunt 
Jede Cassette DM 29,-IM! 
Freiumschlag + DM 1,- (Marke) 
A. Quinn, "Windmill Software” 
Pf-1563, 3170 Gifhorn 


ZX 81 Super Maschinenprogramme z.B. 
Break-PGM (unterbr. alle selbststar- 
tenden Cassetten). Hochaufl. Graphik 
DOC macht def. Cass. lesbar, Sprache 
uvm. Nur Cass-Software. Info 99. RP. 
Schramm, 3Torstr. 54, 8100 Garmisch-P. 





@ TI 99/4A @ 2X Spectrum (16/48) @ 
Software-Verkauf (billigst) und 
Tausch!!! (u.a. Spiele)! Info 
gegen 50 Pf. von H. Sengespeick, 
Wilsenberg 6, 5768 Sundern 4 


VC-20 Wahnsinn!! Superpreise: z.B. 
Modulprogr. 2,-DM, +8, +16 usw. ab 1,- 
Neueste Liste gegen Rückporto 
Bei Matth. Gärtner, Schwarzwald- 
Ring 49, 7505 Ettlingen-4. 


Spectrum/Atari/VC-20 
Software aller Art: Business, 
Schule, Spiele. Neu: Info auf 
Kassette gegen genaue Ang. d. Ge- 
rätes + 3 DM, G u. G. Software, Postf. 
2591, 6000 Frankfurt/Main 1 














Verkaufe VC-20 Software 
Info: Freiumschlag oder 80 Pf. 
M. Henninger, Herm.-Friesenstr. 16 
6238 Hofheim Ts. Tel.:06192/21722 





VC-20 Grundvers.- 8K.-Rommodulspiele 
Info gegen Freiumschlag bei ” 

C. Picko, Büschweg 11, 5500 Trier 

bei Abnahme von 8 St. 2 gratis 





TI 99/4A Software - Service 
Superprogramme aus aller Welt 
Programmkassette (Info g. Rückporto) 
99' Service, An der Weide 21, 
3160 Lehrte, Tel.: 05132/54314 





© © VC-64 @ @ TOP-Software gegen 

Unkostenbeteiligung oder Tausch 

Info gegen Freiumschlag, U. Stahl 

Küntzelst. 38, 4300 Essen 1 
Telefon: 0201/790596 


® VC-20 Superspile @@® 
C} Tausch und Verkauf @@®@ 
Liste gegen Tauschliste oder 50 Pf. 
Rückporto, B. Thora-Soft, Elsa- 
Brandström-Str. 36, 7430 Metzingen 





TI 99/4A - erstkl. Software - TI u. Ex.B. 
Liste gg. Rückporto: A. Fleischmann, 
Talbachstr. 8852 Altendorf Ch. 


o 2X 81 Soft- und Hardware @ 

zu Sonderpreisen, Info gg. DM 1,-: 

Ralph Schneider, Draisstraße 15 
6720 Speyer 


U} ZX Spectrum ... 
Jede Menge Spiele, Dateien, 
Utilities usw. für Sinclair 2X 
Spectrum. Kostenloses Info bei: 
Fr. Neuper, Leuchtenberger Str. 1 
8473 Pfreimd., Karte genügt. 


VC-20 Wegen Systemwechsels ver- 

kaufe ich meine gesamte Software-Prg 

im Wert von ca. 5000.- DM für 60.- DM 

Telefon 02 08 - 84 08 11 ab 19.00 Uhr 

C. Zalesiak, Broicher - Straße 42 
4200 Oberhausen 1 


oo_ Ti 99/4A @@ TIIIHACO® 


Superspiele zu Superpreisen. Z.B. 
Castle Frankenstein, Lander, Flak- 
scharfschützen uva. Info gegen 
Freiumschlag bei Ch. Bladoschewski 
Dorstenerstr. 427, 4630 Bochum 


Die Offensive des VC-20: Über 
300 Art. (Hard- und Software) 
spez. für VC-20 Enthusiasten 

Kosten. ‚Katalog gegen 1,90 DM 

Rückp. in Briefm. - weitere 100 

Spitzenprogramme aus England für ZX 81 

Spectrum-C 64-Etc.-Katalog gegen 

380 DM in Briefm- Orgasoft - 

Hauptstr. 185, 8752 Mainaschaff 


® TI-99/4A @ Programme @ 
® Info 50 Pf (Brfm.) bei Axel Koch @ 


@ Dahlienweg 4A, 7513 Stutensee-1 @ 





VC-20 Modulbox ( 5 Steckplätze ) 

140,- DM, sowie andere Hard- und 

Software. Markus Holzmann, 4250 Bottrop 
Postfach 401 








Spectrum Speichererweiter. 16 - 48K 
B,90,-DM,Andr.Budde,0521/882897n18h 





TI 99/4A + Recorder + div. Spiel- 
module billig abzugeben, Tel.02461/56021 


Spectrum 16K u. ZX Printer u. Lit. 50DM 
Rec.Sharp CE 152, 100DM, 02234/63662 


ZX 1 u. 16K u. Drucker u. Literatur, neu 
VHB 400,- DM. Telefon: 06144/41754 


Sharp MZ80B Neu 2295,-DM, 061472477 





VC-20 +28K/8KROM eingeb. M. Monitor 
+Toolkit, Datasette Joy. Programme 
Literatur DM 850,-, R. Naues, 02151/ 
631926, Krefeld, Schwertstraße 95. 





@©® Recorderinterfce ® @® für 
VC 20/VC 64/ alle CBM. Jeder Recorder 
0. Tonbandg. als Datenspeicher. 
Fertiggerät im Geh. mit Steckern 
39,- DM, Fa. Boi/Hoyne 1, 2225 Schaf- 
stedt, Tel: 04805/380, Nachnahmev. 


Commodore 64 DM 698,- neu I! 
Floppy Disk 1541 * DM 698,- 
Zubehör und andere Typen auf Anfrage. 
W. Hauth, Waisenhausstraße 8 

4200 Oberhausen 12, 0208/892355 
Versand per NN + Porto + Verpackung, 





2X 81, 32 K, Große Memotech-Tastatur 
3 Bücher, Q-Save, M-Coder, Schach + 
viele weitere Spiele, Neupreis 
1000,- DM für DM 600... Alles 
ca 3 Monate alt. Tel. 0711/633857 
VC 64 DM 749,- 
VC 1541 DM 749,- 
VC 64+Datasette DM 859,- 
Vers. per NN., Preisliste 66, Freiumschl. 
Microcomp.-Vertrieb, Postf. 1348 
8902 Neusäss, Telefon. 0821/467705 


ZX-81+16k +3 Bücher +5 Software- 
Cass., Preis: VB Tel.:06175/791369 


TI 99/4A + Ext. Basic + Joystick 
+ Recorder + Rec. Kabel DM 750,- 
Telefon: 02571/51968 


© TI 99/4A u. Ext. Basic u. deutsch. An 
Joystick + Softw. Telef.:07195/60850 





2X 81 u. 16KRam u. gr. Tastatur u. HRG 
und Software (6 Cassetten) für DM 425,- 
Telefon: 05250/50839 ab 15 Uhr. 


Neuer NVC-20/C-64 Basic-Compiler! 
Programme laufen bis 60 mal so 
schnell. Info 50 Pf. Klaus Raczek 
Wickrathebe.Straße 12, 5140 Erkelenz 


2X 81/64K/Tastatur. u. Prog. u. Bücher 
500 DM, R.-Kenzler-Ganghoferstr. 15. 
6710 Frankenthal 





VC-64 u. Floppy 1541 u. Datasette u. viel 
Lektüre zu verkaufen. Alles neu. 
VB. 1500,- DM. Auch einzeln, 

Telefon: 0611/811464 





Profi Joystick Super 2000 mit 
Feuerknopf im Griff u. Bodenplat. 
DM 39,95 incl. Porto für VC 20/64, 
Atari 400/800, Nec 6001 uä 
Fa. Frohner, Im Schollbrauk 57, 
43 Essen 12, Info g. Freiumschlag. 





TI 99/4A u. Ext. Basic u. Dt.Handbuch u. 
Anschl. Rab. u. Kass. Rec. u. Joy- 
sticks u. jede Menge Programme 
VB 800,- / Tel.: 040/6701561 


Erw. a. 48K. f. ZX Spectrum 890 DM 
Meyer, Rahserstr. 58, 4060 Viersen 1 
Telefon: 02162/2296 


ZX 81 u. 16K-Ram u. 3 Bücher u. Softw. 
zu verkaufen,230,- DM.Tel.: 0234/5621977 


TI99/4A u.Rec. Kabel u. Ext. Bas. u.Schach 
u. Datenverw. viele Prgm. u. Joystick. 
VB 1100 DM. Tel.:06894/36441 ab 18 Uhr 


2X 81 u. Monitor in 1 A Zustand, Nur 
für 300,-. Weit. U. Tel:040396618 


VC-20 - und was dann? 

Fragen Sie bei Mürka an! 

Beste Hard.-u. Software 

zu Einsteigerpreisen 

Info u. 1 Progr.-Listing für 1 DM 
Mürka, Rotdornweg 15, 1 Berlin 45 





VC 20 64 K RAM mit Pseudofloppy 248,- 
@ 40/80 Zeichenkarte 235,- DM @ 
©® Steckplatzerweiterung 58,- DM @ 
® Info 2,- 06321/31992.Hemmer @ 
Mühlweg 54, 6730 Neustadt 19 @ 


ORIC 1 48K 598,- DM 
ORIC Farbdrucker 650,- DM 
ZX Spectrum 16K & 48K 
Spectrum Erweiterung 16 auf 48K 
MAHR & MÜLLER Computer 
Westring 32 
6086 Riedstadt 5 


.e.e‚e.e.,.,,—,.—,.0.:0 
Soft und Hardware für VC-20 

8 K Speichererw. m. Scha. 95,- 

16K Speichererw. m. Sch. 160,- 

64K RAM Karte 240,- 

Quick Save Steckmodul 

Maschinensprachmodul 

Graphicmodul 

Programmierhilfemodul 

Modulbox 5 Steckpl. 

Modulbox 2 Steckpl. 

40/80 Zeichenkarte 

Joystick 

Epromm Karte 

Epromm Brenner 

Über 200 Progr. Info gegen 

2- DM in Briefmarken von 

N. Flesch, Scheideweg 63 G 
4650 Gelsenkirchen Buer 

ovo‚.e..—..,;—>. 0... 


Stecker für ZX 80, 81 Spectrum, VC 20, 
VC 64, PET, Commodore CBM, TI 99/4, 
Atari, Apple: Liste DM 3,- in Briefmarken 
Commodore-Userport-Stecker: DM 9,85 
Haube 5,- DM, Neu für ZX: Monitoranschluß 
fertig DM 20.-, Auto-Repeat:Fertig DM 15.- 
Load-Controller. Leerplatine 5,-. Schaltplan 
Memotech-Ram 16K/32K: DM 10.-. Be- 
schreibung freier I/O-Adressen: DM 10.-. 
Ersatz für 8K-Rom: Ein Eprom, indem Sie 
bei Bedarf auch System-Funktionen wie 
z.B. LPrint, LList etc. ändern können 

(machen wir auch für Sie): DM 50,-. Alle 
mit genauer Anleitung! Bei Vorauskasse: 
Inkl. Porto, sonst zusätzlich. 











TI 99/4A einschl. Peripherie zu 
kaufen gesucht. Baron, Atzelberg- 
Str. 35, 6000 Frankfurt 60 











Suche für VC 64 Spiele etc. Disk 
E. Puetz, 623 Frankfurt, Espenstr. 58 





Suche Frogger oder Phoenix für 
den Dragon 32. U. Theis. Schützen- 
hüttenweg 36, 6000 Frankfurt/M. 70 





Tausche ZX-Spectrum Software u. Spiele 
Werner Braun, Hirschgraben 26 
5000 Köln 90 


© Tausch VC 64 Software @ 
Info DM 0,80 @ Christian Wöhler 
Moritzstraße 70, 4300 Essen 





Tausche ZX Spectrum Software vorzugs- 
weise Spiele Tel.0211/683137 


©®® VC-20 Programmtausch @@®@ 
Liste an: Thomas Werner 
Goerdelerstr. 96, 6050 Offenbach 


CBM 64 @®@ Tausche u. Verkaufe @ 
Spitzenprogr. (HGR-Masch u. Ton) sehr 
billig, Liste geg. Freiumschl. an 
Jürgen Oedt, Richtw. 17, 8501 Nen- 
Delstein 





An alle 
Wir suchen 
Tips, sowie 


Colour-Genie-Besitzer! 
Programme, Hardware- 
Tricks, Tips und 
Kniffe zur Veröffentlichung 
Info gegen Freiumschlag von: 
Brokelmann, Postfach 2807 Achim 1 


Tausce ZX Spectrum-Programme 
Liste bitte an: Michael Roch,; Boyne- 
burgerstr. 2, 3440 Eschwege 












Neues 
Home-Computer- 
Zubehör 









SPECTRUM Gentronics Interface 


einschließlich 

-Parallelkabel 

-deutscher Treibersoftware 

-deutscher Bedienungsanleitung 

-deutscher Interfacebeschreibung 

-schnelle Grafikunterprogramme auf Kassette nur DM 650.- 
(Hardcopy für Epson und Epsonkompatible Drucker. Andere auf Anfrage) F 
Drucker- 
Schnittstelle / 
direkt ohne Peribox für TI 99/4 A 
anzustecken (ohne Kabel) 














Übrigens: Unser Interface kann man auch für Steuerungen, 
Datenübertragung etc. benutzen! Entsprechende Routinen und 
Beschreibungen werden mitgeliefert. Natürlich sind alle 


Beschreibungen in deutsch! 


TEXTVERARBEITUNG ’TASWORD TWO” 
64 Zeichen pro Zeile auf dem Bildschirm sichtbar. 
-Ausdrucke mit unserem Interface auf jeden Parallel- Matrix- oder Typenrad-Drucker. 


nur DM 25,- 











Antennen- 
umschalt-Box 

erspart umstecken des Antennen- 
steckers für Benutzung eines Home- 


5 C t 
Fordern Sie unseren Sonderprospekt an: er 





Tasword TWO. 222 2easeasensennnnne. 69, DM Era DSORR 


De Dun Ba neeeelenteien. 4B;r DM DEN. 
Omnicalc (Tabellenverarbeitung)........69,- DM N 





neu eingetroffen mit Parallel-Schnittstelle 
für TI 99/4A, A Il, VC, Color-Genie, etc. 


Ringstr. 70 
2300 Kiel 
SEHE Teieton (0431) 676766 


ringstraße Telex17-2627435130 


Versandanschrift: 


JOYSOFT 


Bahnstraße 50, 4030 Ratingen 
Telefon: 02102/25490 






Auftrag für Gelegenheitsanzeigen in Homecomputer 


Name und Adresse 





An Homecomputer 
Westring 59c 
Postfach 629° 
3440 Eschwege 








Unterschrift Ich zahle sofort nach Rechnungserhalt. 
Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- Ich wünsche folgenden Text zu veröffentlichen: 
legenheitsanzeigen für Ver- | | 
kaufsangebote, Kauf- und 
Tauschgesuche, Kontaktauf- | | 
nahme bzw. Erfahrungsaus- | | 
tausch usw. 

















Preise für „Kleinanzeigen“: 

Private Gelegenheitsanzeige | 

je Druckzeile 5,— DM inkl. | 
| 
| 











MwSt. Chiffregebühr je Anzei- 
ge 10,- DM. 


Gewerbliche Gelegenheitsan- 






































zeige jeDruckzeile 7,—DM inkl. 
MwSt. (dürfen nicht unter Chif- [III I I 1 
fre erscheinen). | 





























Zutreffendes ankreuzen 
Hardware Tausch Versch. 





















































biete an Hardware Kontakte Chiffre 














Software-Service 


Programme auf Diskette und Kassette 


Nicht jeder Leser hat die Zeit und die 
Geduld, alle Programme, die er gerne 
hätte, in sein Gerät einzutasten. 

Wir haben uns deshalb überlegt, daß es 
das einfachste ist, wenn wir die 
Programme, die wir ohnehin auf Dis- 
kette oder Kassette vorliegen haben, 
diesem Leserkreis zum Selbstkosten- 
preis (Kopierzeitaufwand, Datenträ- 
ger, Porto, Verpackung und Mehrwert- 
steuer) anbieten. 

Es genügt jeweils die Angabe eines 
Stichwortes, z.B.: VC-20-Disk Heft 5 
oder Sinclair-Kassette Heft 5. 


Bestellungen Inland: 


Gegen Einsendung eines Schecks oder 
Vorauszahlung aufunser Konto bei der 
Kreissparkasse Eschwege, 
Bankleitzahl 522 500 30 

Kto.-Nr. 45 22 934 

senden wir Ihnen die gewünschten Pro- 
gramme schnellstmöglich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein (Kassette 10,- 
DM, Diskette 20,- DM). Keine Schecks 
oder Überweisungen! 


Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Kontokann 
es bis zu2 Wochen dauern, bis wir Ihre 
Bestellung in Händen haben. 

Oft passiert es, daß auf der Überwei- 
sungsdurchschrift weder Name, noch 
Ort, noch Art der Bestellung zu er- 
kennen sind. Schreiben Sie uns! (An- 
rufe kosten viel Geld und bringen, weil 
dann Schriftvergleiche nicht möglich 
sind, kein Ergebnis)! 


Wenn esbei uns besonders hektisch zu- 
geht, dann kann es schon mal pas- 
sieren, daß es mit der Lieferung etwas 
länger dauert. Vergessen Sie bitte nicht: 
Der Kassettenservice ist ein zusätz- 
licher Service von uns, der Ihnen, dem 
Leser, Tipparbeiten ersparen soll (Sie 
kennen den Versuch einer anderen 
Zeitschrift, dieses per Lichtgriffel zu 
ermöglichen). Wir tun unser möglich- 
stes. Aber Pannen sind nie ausge- 
schlossen. 

Bitte haben Sie in solchen Fällen Ver- 
ständnis. 





aus Heft 9/83 


TI-99/4A K 8,- DM 
Spielautomat 
Fallschirmspringer 


ZX-81 K 10,- DM 
Ganeymed 
Maschinen-Programm-Loader 
Schwarzes Loch 


Commodore 64 K 8,- DM 
Weltraumschlacht 
Wildwasser 


VC-20 K 10,- DM 
Joypainter 
Survival 

Star Tramp 


Apple IID 16,- DM 
Kugellabyrinth 
Gärtner 





aus Heft 10/83 


C 64K 10,- DM 
Phoenix 
Invaders 
Fallschirm 


Apple IID 15,- DM 
Helicopter-Attack 
Karylon 


TI 99/4A K 8,- DM 
Kniffel 
Mauerklauer 


ZX-81 16K K 10,- DM 
Memory 

Lift 

Drakulas Diamanten 


Spectrum 16K K 8,- DM 


Ufo 

Lift 

TRS-80 K 8,- DM 
Quadrato 


VC-20 K 8,- DM 
Skipping Ball 
Einsiedler 


Dragon 32 K 8,- DM 
Chip Out 
Säulen 


SPEGTRUM SOFTWARE 


Bestellen Sie noch heute unseren Katalog mit detaillierten 
Programmbeschreibungen sowie Soft- und Hardwaretips 
für den Sinclair Spectrum gegen Schutzgebühr von 3,- DM. 
Sofort lieferbar: Mehr als 100 verschiedene Kassetten 
frisch aus England importiert. 


Die Lieferung durch Versand erfolgt ausschließlich per Nachnahme 
oder Vorausscheck plus 3,- DM Versandkosten. 


Die Auslieferung erfolgt am gleichen Tag des Bestelleingangs, 
wenn die gewünschte Kassette auf Lager ist. 


Telefonische Bestellungen nimmt unser Anrufbeantworter entgegen. 


Tag und Nacht! 


Fordern Sie auch unsere VE Softwareliste an. 


Versandanschrift: 


JOYSOFT 


Bahnstr. 50, 4030 Ratingen 
Telefon: 02102/25490 








COMPUTERTAG 


ERKELENZ 


Amateure, Computerclubs, Schüler-AGs 
sowie Hersteller und Verlage aus der 
ganzen Bundesrepublik zeigen neueste 
Geräte, Programme, Projekte und Literatur 
für Beruf, Schule und Freizeit 









8./9.0KT.1983 


Ort: Cusanus-Gymnasium Erkelenz 
Allgemeine Öffnungszeiten: 
Samstag, 8. Oktober 1983, 10-18 Uhr 
Sonntag, 9. Oktober 1983, 9-17 Uhr 





onputer, 
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(ÜBER)LEBEN 
IM ZEITALTER DER ELEKTRONIK 


RAHMENPROGRAMM : 


Für Computerfreaks Computerflohmarkt, Tauschbörse 

Für Praktiker: 

Computerwerkstatt des ZENTRUMs mit Datei-, Kalkulations- 
und Textverarbeitungsprogrammen in Aktion 

Für Theoretiker : Literaturstand 

Für Lehrer und Schüler : 

Schüler AGs zeigen den Einsatz von Gomputern in der Schule 
Infostand der LEHRER-ARBEITSGEMEINSCHAFT DES KREISES 
HEINSBERG FÜR DIE ANWENDUNG VON MICROCOMPUTERN IN 
DER SCHULE 

Für Audio- und Videofreunde: 

Großbildprojektion 

Ausstellung aktueller Geräte und Systeme 

Vorführungen des AUDIOVISIONS-CLUBs im ZENTRUM 





Für Spielfans : 


Aktionsräume mit aktuellster Hard-/Software der führenden 
Hersteller zum Ausprobieren 

® Spiele mit Computern 

@ Elektronikspiele und Schachcomputer 

® »Telespiel 1983« 


Für Alternative: 


Ausstellung anspruchsvoller Erwachsenenspiele, Simulations- 
spiele, Denkspiele, Planspiele 


Für die Kleinen: 
Kindergarten der Spieliothek mit Betreuern 


Für Hungrige und Durstige : Cafeteria des ZENTRUMs 





Für Alle: INFOSTAND des ZENTRUMs 
Ganz aktuell: Die Bundespost zeigt »Bildschirmtext«. Besucher können sich unmittelbar beteiligen. 





Nur am Samstag: Gastreferent Prof. Klaus Haefner aus Bremen 


15-16 Uhr zum Thema »(ÜBER)LEBEN IM ZEITALTER DER ELEKTRONIK und über sein Buch »Die neue Bildungskrise« 
19-20.30 Uhr zum Thema »Computer in der Schule« besonders für Lehrer, Eltern und Erzieher 





Veranstalter: Computerarheitskreis im ZENTRUM FÜR SPIEL- UND MEDIENPÄDAGOGIK e.V., Alte Volksschule Stahe, Bundesstraße, 
5133 Gangelt-Stahe, Telefon 0 24 54 / 1497 


Eintritt : Erwachsene 1,- DM, Kinder / Jugendliche 0,50 DM 





FOR THE "FOR THE 
COMMODORE 64 COMMODORE 64 







SPRITE 
MAKER 
64 





SUPERFONT 
4.0 










CASSETTE CASSETTE 
Our new character Design and save beautiful 
generator lets you re-define muiticoloured sprites, and 
and shape your own character = them in 

sets. Full editing rammes! Full editing 
facilities and achitios and 
documentation. documentation. 


Escape from Perrlaus 
ka TEE 


FOR ATARI 4007200 
EN 


Quicr ghot. 


DELUXE JOYSTICK CONTROLLER 


FOR ATARI 400/809 
COMPUTERS Eu 


WICOSOFT * Nordstraße 22 * 3443 Herleshausen * Tel. 056 54 -6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 





BUNNYa 
Ela, 





SinclairZX Spectrum 


WICOSOFT * Nordstraße 22 * 3443 Herleshausen * Tel. 05654 -6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 









ROMIK SOFTWAR E 


MuLfsdung 





ROMIK ZEOFIWARE A 


NARTIEN RAIDER 


UNEXPANDED VIC 20 






TA REAL ACTION SHOTOF THE GAME” 
WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 
ROMIK SOFTWARE ZX 


ANOONS OF UUPITER 





“AREAL ACTION SHOT OF THE GAME” 


WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


Händleranfragen erwünscht. 





ROMIK IFTWARE A" 
N 


FOR THE UNEXPANDED Vic 20 





BE 


+ 
+ 
Be 


"A REAL ACTION SHOT OF THE GAME 


WILL YOU BE THE SUPREME 
WORLD CHAMPION? 


ROMIK SOFTWARE A 


SHARK ATTACK 


5 
 * 
RRERLACHION SHOT OF THEGAME 
WILL YOU BE THE 
SUPREME WORLD 


CHAMPION? 










MULT-COLOUR MRES COLOUR. 
ern UM ERPANDEO v3 COLOUR CowruTEn wen 
VOTSTICK or KEYBOARD CONTROL 





ROMIK SQETWARE 2, 


SPACE | ATTACK 





Ei m: 


A REAL ACTION SHOT OF THE GAME“ 

WILL YOU BE THE 

SUPREME WORLD 
CHAMPION? 


ROMIK SOFTWARE 
PResEnT 





SER INVASION 
Er ur 
RER. X 
x x 

> 


"A REAL ACTION SHOT OF THE GAME" 
WAL.VC YOU BE THE SUPREME 


IRLD CHAMPION? 


[) Softwareautoren gesucht - Info anfordern! 
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FOR IK ZX 81 


 1.CANYON 


5. SQUASH 

6. SCRAMBLE 

7. SKETCH 

8. COSMIC RAIDER 
9. FOUR THOUGHT 


WILL YOU BE THE 
SUPREME WORLD 
\CHAMPION? 


WICOSOFT ® Christian Widuch ® Nordstr. 22 @ 3443 Herleshausen 





